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

var s,t:string; k,i:integer;beginreadln(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