Помогите решить задачу в паскале!!!Дана строка 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.