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

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

Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран кол-во считанных букв. Вводимые символы разделяются с помощью клавиши <ENTER>. Предполагается, что можно вводить строчные и прописные буквы латинского алфавита и символ <*> является признаком конца последовательности.

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

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

var
 i : integer;
 a : char;
Begin
 i:=0;
 Repeat
  readln(a);
  if (a in ['A'..'Z']) or (a in ['a'..'z']) then inc(i);
 Until a='*'; 
 
 writeln(' Введено букв: ', i);
 readln;
End.

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

Переменная i инициализируется значением 0.
Переменная a инициализируется значением 'A'.
Запускается цикл Repeat, который будет выполняться до тех пор, пока значение переменной a не станет равным знаку '*'.
Внутри цикла считывается символ с клавиатуры и сохраняется в переменной a.
Проверяется, является ли введенный символ буквой верхнего регистра (от 'A' до 'Z') или буквой нижнего регистра (от 'a' до 'z').
Если символ является буквой, то значение переменной i увеличивается на 1.
После завершения цикла, выводится на экран количество введенных букв.
Запускается функция readln(), чтобы пропустить символ новой строки, введенный после последнего символа.
Выводится на экран сообщение ' Введено букв: ', за которым следует значение переменной i.
Запускается функция readln(), чтобы пропустить символ новой строки.