Помогите решить задачу в паскале!

Дана строка 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.