Количество символов латинского алфавита в строке - Turbo Pascal

Найти количество английских символов в тексте "Abc,be15=%" Помогите пожалуйста

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

for i:=1 to Length(s) do if s[i] in ['A'..'Z','a'..'z'] then Inc(k);
WriteLn(k);

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

В данном коде выполняется подсчет количества символов латинского алфавита в строке.

i := 1 - счетчик символов в строке
s[i] - текущий символ в строке
Length(s) - количество символов в строке
s[i] in ['A'..'Z','a'..'z'] - проверка является ли текущий символ символом латинского алфавита
Inc(k) - увеличение значения переменной k на единицу при каждом найденном символе латинского алфавита
WriteLn(k) - вывод значения переменной k (количество символов латинского алфавита в строке) в консоль Код работает следующим образом:
Происходит итерация по каждому символу строки (от 1 до длины строки).
Для каждого символа проверяется, является ли он символом латинского алфавита.
Если символ является символом латинского алфавита, то значение переменной k увеличивается на единицу.
После прохода по всем символам строки, выводится значение переменной k, которое и является количеством символов латинского алфавита в строке.