Описать рекурсивную функцию letter (s), которая подсчитывает количество букв в строке - Pascal ABC

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

Описать рекурсивную функцию letter(s), которая подсчитывает количество букв в строке s.

помогите пожалуйста!!!

Решение задачи: «Описать рекурсивную функцию letter (s), которая подсчитывает количество букв в строке»

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

program abc;
uses crt;
const bk=['A'..'Z','a'..'z','А'..'я','ё','Ё'];
function letters(s:string;i:integer):integer;
var k:integer;
begin
if s[i] in bk then inc(k);
if i<length(s) then k:=k+letters(s,i+1);
letters:=k;
end;
var s:string;
begin
writeln('Введите строку:');
readln(s);
write('Количество букв=',letters(s,1))
end.

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

Создается программа abc, которая использует библиотеку crt.
В программе объявляется константа bk, которая содержит массивы символов для каждой буквы алфавита в верхнем и нижнем регистре, а также для кириллицы и знаков препинания.
Затем объявляется функция letters, которая принимает два аргумента: строку s и целое число i.
Внутри функции проверяется, является ли символ в строке s в массиве bk. Если да, то увеличивается счетчик k.
Если i меньше длины строки s, то вызывается рекурсивно функция letters для следующего символа в строке. Значение k обновляется в соответствии с результатом рекурсивного вызова.
Наконец, значение letters присваивается переменной k.
В основной части программы считывается строка от пользователя с помощью функции readln.
Выводится сообщение, содержащее количество букв в строке s, используя функцию letters.
Программа завершается.