Дана последовательность символов. выяснить, имеются ли в ней все буквы, входящие в слово шина

Var s,t:string; k,i:integer;
begin
readln(s);
t:='шина';
k:=0;
for i:=1 to length(t) do
 if pos(t[i],s)>0 then k:=k+1;
if k=length(t) then writeln('YES')
else writeln('NO');
end. 

Пример:
шикарный
YES