Составить процедуру, позволяющую определить позицию первого вхождения в заданную строку какого-либо символа — Pascal(Паскаль)

program PascalGuru;

uses crt;

procedure position;
var
  p: integer;
  s: string;
  c: char;
begin
  repeat
    clrscr;
    writeln('Dlya vixoda vvedite "Exit" ');
    writeln;
    write('Stroka: ');
    readln(s);
    if (s = 'Exit') or (s = 'exit') then
      exit;
    write('Simvol: ');
    readln(c);
    writeln('-Pozitia= ', pos(c, s));
    readln;
  until s = 'Exit';
end;

{ ------------------------------- }
begin

  position;

end.