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

вы меня сегодня просто спасаете))

Зачем на вы? Мне только 17 лет)

var S:string;beginWriteln('Введите строку');If not(Pos('ш',S)=0) thenWriteln('буква ш есть')elseWriteln('буквы ш нету');end.