Проверка наличия буквы в слове на Паскале

В приведенном примере проверяется есть ли в тексте буква "s". Вы можете легко изменить программу для любой буквы. Просто в коде вставьте нужную букву в 10-й строке.

program z11;
uses crt;
var t : string;
 i : integer;
 ot : boolean;
begin
 clrscr;
 writeln('введите текст:');readln(t);
 for i:=1 to length(t) do
 if t[i]='s' then ot:=true;
 if ot=true then write('да')
 else write('нет');
 readln;
end.