Задача на Паскале

program CountLettersAndSymbols;

uses SysUtils;

var
s: string;
i, rusCount, latCount, symbolCount: integer;

begin
rusCount := 0; // Счётчик русских букв
latCount := 0; // Счётчик латинских букв
symbolCount := 0; // Счётчик всех символов

writeln('Введите предложение:');
readln(s);

// Проходим по каждому символу строки
for i := 1 to length(s) do
begin
// Проверяем символ на принадлежность к русскому алфавиту
if (s[i] >= 'А') and (s[i] <= 'Я') or (s[i] >= 'а') and (s[i] <= 'я') then
inc(rusCount)
// Проверяем символ на принадлежность к латинскому алфавиту
else if (s[i] >= 'A') and (s[i] <= 'Z') or (s[i] >= 'a') and (s[i] <= 'z') then
inc(latCount);

// Увеличиваем счётчик символов
inc(symbolCount);
end;

writeln('Количество русских букв: ', rusCount);
writeln('Количество латинских букв: ', latCount);
writeln('Общее количество символов: ', symbolCount);

end.