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

// FreePascal 3.0.0

program string6;
var
i: integer;
f: boolean;
R: array[1..33] of WideChar = (а, б, в, г, д, е, ё, ж, з, и, й, к, л, м, н, о, п, р, с, т, у, ф, х, ц, ч, ш, щ, ь, ы, ъ, э, ю, я);
C: WideChar;
begin
f := False;
readln(C);
if IsNumber(C)
begin
writeln(digit);
f := True;
end
else
for i := 1 to 33 do
if R[i] = C then
begin
writeln(rus);
f := True;
break;
end;
if not(f) then
writeln(lat);
end.