Найти, в каком месте введенного предложения впервые встретилась буква “f” и сколько раз она содержится в предложении всего — Pascal(Паскаль)

program stroka;

uses crt;

var
  s: string;
  i, k, p: integer;

begin
  clrscr;
  writeln('Ischodnaia stroka:');
  readln(s);
  for i := 1 to length(s) do
    if s[i] = 'f' then
    begin
      k := k + 1;
      p := pos('f', s);
    end;
  writeln('k=', k);
  writeln('p=', p);
  readln;

end.