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

Получилось на 15 мин быстрее)))
Как я понял, нужно определить, какая буква введена с клавиатуры - большая или маленькая, сделала для английского и русского языка
program one;
var
a:string;
begin
readln(a);
if a[1] in [a..z] then writeln(Маленькая);
if a[1] in [A..Z] then writeln(Большая);
if a[1] in [а..я] then writeln(Маленькая);
if a[1] in [А..Я] then writeln(Большая);
end.