пожалуйста паскаль АВС  через цикл FOR.Дана строка.Найти сколько букв "к"

Чтооо?

Можно без then break,мы им не пользуемся

через репид?

s, c: string; тут" с "-это что?

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 раз(а)