Дана строка .определить : есть ли в данной строке буква "ш" (расская,маленькая буква) паскаль, ; )

Var S:string;
begin
Writeln('Введите строку');
If not(Pos('ш',S)=0) then
Writeln('буква ш есть')
else
Writeln('буквы ш нету');
end.