Найти количество малых, больших букв и других символов - Pascal ABC

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

Дана строка. Найти в ней количество малых букв, количество заглавных букв, количество других символов. Спасибо за внимание!

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

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

Var s : string;
    i, j, k1, k2, k3 : integer;
begin
Writeln('Enter s');
Readln(s);
i:=1;
k1:=0;//заглавные
k2:=0;//малые
k3:=0;//все остальное
While (i<=length(s)) do
      begin
      If (ord(S[i])>=65) and (ord(S[i])<=90) then k1:=k1+1 else
      If (ord(S[i])>=97) and (ord(S[i])<=122) then k2:=k2+1 else k3:=k3+1;
      i:=i+1;
      end;
Writeln(k1);
Writeln(k2);
Writeln(k3);
Readln;
end.

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

В начале кода объявляются переменные s, i, j, k1, k2, k3, которые будут использоваться для подсчета количества символов разных типов.
Затем идет команда Writeln('Enter s'), которая выводит на экран сообщение Enter s.
После этого с помощью функции Readln(s) происходит чтение строки из стандартного ввода и сохранение ее в переменной s.
Переменная i инициализируется значением 1, а переменные k1, k2, k3 устанавливаются в 0. Эти переменные будут использоваться для подсчета количества символов разных типов.
Затем начинается цикл While, который будет выполняться до тех пор, пока значение переменной i меньше или равно длине строки s.
Внутри цикла проверяется каждый символ строки s. Если символ является заглавной буквой (ордируется от 65 до 90), то переменная k1 увеличивается на 1. Если символ является строчной буквой (ордируется от 97 до 122), то переменная k2 увеличивается на 1. Все остальные символы считаются символами других типов и увеличивают переменную k3 на 1.
После проверки каждого символа, значение переменной i увеличивается на 1.
По завершении цикла, выводятся значения переменных k1, k2, k3 с помощью команды Writeln(k1), Writeln(k2), Writeln(k3).
Завершается программа командой Readln, которая ожидает ввода пользователя.