Дана строка текста. Подсчитать количество букв «к» в последнем слове. (программа Паскаль)

Question

Дана строка текста. Подсчитать количество букв «к» в последнем слове.

Answer 1

var s : string;
   k, kol, i : integer;
begin
  Write('Введите строку : ');
  ReadLn(s);
    for i:=1 to length(s) do
if s[i]=' ' then k:=i;
for i:=k+1 to length(s) do
if s[i]='k' then inc(kol);
  WriteLn('В последнем слове буква "k" встречается ',kol,' раз.');
  ReadLn;
end.