{ Составить программу проверки есть ли в тексте буква "s" }

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.