Пожалуйста паскаль АВС  через цикл 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 раз(а)