Исправить код

[MaidDragon]

program lab81;
var
  s: string;
  ch: char;
  f: text;
  i, k: integer;
 
begin
  write('Введите букву: ');
  readln(ch);
  k := 0;
  assign(f,'D:\PascalABC.NET\Files\text.txt');
  reset(f);
  while not eof(f) do 
  begin
    readln(f, s);
    for i := 1 to length(s) do 
      if ((s[i] = ch) and (i = 1)) or ((s[i] = ch) and (s[i - 1] = ' ')) then 
        k := k + 1;
  end;
  close(f);
  writeln('Кол-во слов: ', k, ' начинающихся с буквы ', ch);
end.

Изменить цикл так , чтобы использовались процедуры\функции Copy, Pos и Delete
И дописать код ,чтобы выводило помимо кол-ва слов сами слова