Введите строку и определите есть ли в строке слово "Пока". (Паскаль)

pascal

var

 s: string;

begin

 Write('Введите строку: ');

 ReadLn(s);  

 if pos('Пока',s) > 0 then

    WriteLn('Введенная строка содержит `Пока`')

 else

    WriteLn('Введенная строка не содержит `Пока`')

end.