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

Формулировка задачи:

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

Решение задачи: «Найти номер буквы и подсчитать количество этих букв»

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

var s:string;
    i,n,k:integer;
begin
writeln('Введите строку из строчных латинских букв');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='k' then
 begin
  inc(k);
  n:=i;
 end;
if k=0 then write('В строке нет буквы k')
else write('Количество букв k=',k,' номер последней=',n)
end.

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

Объявлены три переменные: строковая переменная s, целочисленные переменные i и n, а также переменная k типа integer.
Выводится запрос на ввод строки из строчных латинских букв.
В цикле от 1 до длины строки (индексы от 0 до length(s)-1) проверяется каждая буква на равенство 'k'.
Если условие выполняется, то увеличивается значение переменной k и запоминается текущий индекс в переменной n.
После цикла проверяется значение переменной k. Если оно равно 0, то выводится сообщение В строке нет буквы k.
Если значение переменной k не равно 0, то выводится сообщение Количество букв k=, а затем значение переменной k, ` номер последней=», а затем значение переменной n.