В файле «input.txt» дана строка символов. Выяснить верно ли, что среди символов этой строки имеются все буквы, входящие в слово “мышь”. Ответ записать в файл — Pascal(Паскаль)

var f,g:text;
     s:string;
begin
assign(f,'test.txt');
reset(f);
assign(g,'otvet.txt');
rewrite(g);
readln(f,s);
if(pos('м',s)>0)and(pos('ы',s)>0)and(pos('ш',s)>0)and(pos('ь',s)>0) then
writeln(g,'verno') else writeln(g,'ne verno');
close(f);
close(g);
end.