Составить программу которая проверяет входит ли буква w в текст ответ должен быть да или нет

program zz1;

var s:string; / / заводим переменные

k:integer;

begin

write ('введите текст ');

readln (s); / / вводим исходный текст с клавиатуры

k:=pos ('w', s); / / находим позицию заданного символа w в исходном тексте

if k = 0 / / проверяем, если позиция заданного символа в строке равна нулю, то символа в строке нет и выводим соответствующий ответ

then write (' нет ') else write (' да ');

end.