Если С - цифра, то вывести "digit', если латинская буква, то 'lat', если русская - вывести "rus" - PascalABC.NET

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

Здравствуйте , помогите с задачей ... Вообще сам ничего не могу сообразить(( . Условие: Дан символ С , изображающий цифру или букву (латинскую или русскую). Если С изображает цифру, то вывести строку "digit', если латинскую букву , то вывести 'lat', если русскую - вывести "rus". Исходные данные С='n' . Пример верного решения: 'lat'.

Решение задачи: «Если С - цифра, то вывести "digit', если латинская буква, то 'lat', если русская - вывести "rus"»

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

var c:char;
begin
repeat
write('Введите цифру или русскую или латинскую букву c=');
readln(c);
until c in ['0'..'9','A'..'Z','a'..'z','А'..'я','Ё','ё'];
case c of
'0'..'9':write('digit');
'A'..'Z','a'..'z':write('lat');
'А'..'я','Ё','ё':write('rus');
end;
end.

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

Объявлена переменная типа char с именем c.
Задана повторяющаяся операция с помощью ключевого слова repeat.
В каждой итерации цикла выводится сообщение для ввода символа.
Введенный символ сохраняется в переменной c.
Цикл продолжается до тех пор, пока не будет введен символ, не соответствующий заданным условиям.
С помощью оператора case проверяется значение переменной c.
Для каждой группы символов задано соответствующее действие с помощью написания в консоль текста digit, lat или rus.
Код завершается с помощью ключевого слова end.