Помогите решить задачу в паскале! Дана строка S и символ C. Определить есть ли…

ПаскальОткомпилирован в: 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.