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

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

Пследовательно вводятся символы латинских прописных и строчных букв до ввода символа пробела. Подсчитать количество прописных букв

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

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

uses Crt;
var c: Char; n: Integer;
begin
  repeat
    c:=ReadKey; if c=#0 then ReadKey;
    if c in ['A'..'Z'] then Inc(n);
  until c=' ';
  WriteLn(n);
end.

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

Создается переменная c типа Char для хранения символа, введенного с клавиатуры.
Создается переменная n типа Integer для подсчета количества прописных букв.
В цикле repeat until происходит выполнение следующих шагов: а) Считывается символ с клавиатуры с помощью функции ReadKey и сохраняется в переменную c. б) Проверяется, является ли введенный символ управляющим, т.е. принадлежит ли к группе #0 (например, стрелки на клавиатуре), и в случае необходимости этот символ считывается снова. в) Проверяется, принадлежит ли символ c к диапазону прописных букв ['A'..'Z'] с помощью оператора in. г) Если символ c является прописной буквой, увеличивается значение переменной n на 1 с помощью функции Inc.
Цикл повторяется до тех пор, пока символ c не будет равен пробелу (' ').
Выводится количество прописных букв, подсчитанное в переменной n, с помощью функции WriteLn.