String6. Дан символ C, изображающий цифру или букву (латинскую или рус- скую). Если C изображает цифру, то вывести строку «digit», если латин- скую букву — вывести строку «lat», если русскую — вывести строку «rus». В паскале пожайлуста помогите не могу сделать

Var c:char;
begin
write(Введите символ: );
readln(c);
case c of
 0..9         :writeln(digit);
 A..Z,a..z:writeln(lat);
 А..Я,а..я:writeln(rus);
 else writeln(Другой символ);
 end;
end.

Пример:
Введите символ: П
rus