Определить, является ли символ буквой русского алфавита - Pascal ABC

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

Составить программу, которая вводит с клавиатуры произвольный символ, вычисляет его десятичный код в кодовой таблице и определяет, является ли данный символ буквой русского алфавита, буквой латинского алфавита или цифрой.

Решение задачи: «Определить, является ли символ буквой русского алфавита»

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

var s:char;
    k:byte;
begin
write('Введите любой символ: ');
readln(s);
k:=ord(s);
writeln('Его код=',k);
case k of
168,184,192..255:write('Это русская буква'); //168=Ё, 184=ё
65..90,97..122:write('Это латинская буква');
48..57:write('Это цифра');
else write('Это не буква и не цифра');
end;
end.

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

Переменная s типа char, используется для хранения введенного пользователем символа.
Переменная k типа byte, используется для хранения кода символа введенного пользователем символа.
Выводится сообщение Введите любой символ: для приглашения пользователя ввести символ.
С помощью функции readln считывается введенный пользователем символ и сохраняется в переменной s.
С помощью функции ord считывается код символа введенного пользователем символа и сохраняется в переменной k.
Выводится сообщение Его код=,k для информирования пользователя о коде введенного символа.
Запускается конструкция case для проверки кода символа.
Конструкция case разделена на несколько частей, каждая из которых проверяет определенный диапазон кодов символов.
Если код символа находится в диапазоне от 168 до 191 (включительно), выводится сообщение Это русская буква.
Если код символа находится в диапазоне от 65 до 90 (включительно), выводится сообщение Это латинская буква.
Если код символа находится в диапазоне от 48 до 57 (включительно), выводится сообщение Это цифра.
Если код символа не попадает ни в один из вышеуказанных диапазонов, выводится сообщение Это не буква и не цифра.
Конструкция case заканчивается точкой с запятой (;).
Выводится сообщение Окончание для информирования пользователя о завершении программы.