Введите букву или цифру и определите если эта буква то малинькая или большая или цифра

Var
Symbol: char;
begin
write('Введите латинскую букву или цифру: ');
readln(Symbol);
case Symbol of
'a'..'z': writeln('Это маленькая буква');
'A'..'Z': writeln('Это большая буква');
'0'..'9': writeln('Это цифра');
end;
end.