Напечатать номер последней буквы к и количество этих букв в тексте - Free Pascal

3)Дан текст из строчных латинских букв, за которым следует точка. Напечатать номер последней буквы к и количество этих букв в тексте

Листинг программы

  k := 0;
  for i := 1 to Length(s) do
    if s[i] = 'k' then
    begin
      inc(k); last := i;
    end;

Объяснение кода листинга программы

В данном коде происходит следующее:

Устанавливается значение переменной k равное 0.
Запускается цикл for, который проходит по каждому символу в строке s.
Внутри цикла проверяется, равен ли текущий символ переменной s[i] символу 'k'.
Если символ равен 'k', то увеличивается значение переменной k на 1 и значение переменной last устанавливается равным i.
По завершению цикла, выводится значение переменной k, которое показывает количество символов 'k' в строке, и значение переменной last, которое показывает позицию последнего символа 'k' в строке.