Паскаль авс через цикл for. дана строка.определить сколько букв "к" в последнем слове.

Var
  i, n, k: integer;
  s, c: string;

begin
  writeln('Введите текст');
  readln(s);
  n := Length(s);
  k := 0;
  i := n;
  repeat
    c := Copy(s, i, 1);
    if (c = 'к') or (c = 'К') then k := k + 1;
    i := i - 1;
  until c = ' ';
  writeln('В последнем слове буква "k" встречается ', k, ' раз(а)')
end.

Результат прогона тестового примера в PascalABC.NET:

Введите текст
Кукушка кукует, а петух - кукарекает!
В последнем слове буква "k" встречается 3 раз(а)