Решить в ! дана строка s и символ c. определить есть ли символ c в строке s

Паскаль

Откомпилирован в: Pascal ABC

program z1;
uses crt;
var
   s: string;
   c: char;
   i: integer;
begin
     write('  Vvedite strocy:  ');
     readln(s);
    
     writeln();
    
     write(' Vvedite sivol dl poiska:  ');
     readln(c);
    
     writeln();
     for i := 1 to length(s) do
     if s[i] = c then //
     begin
          writeln(' Simvol prinadlech stroce = ', s);
          break;
     end;
     if s[i] <> c then writeln(' Simvola net v stroke = ', s);
end.