Составить программу которая проверяет заходит ли буковка 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.