Дан символ, программа должна определить является ли он буквой латинского алфавита или буквой алфавита (паскаль)

Var  N: char;
begin 
 readln (N);
 if (N in ['A'..'Z']) or (N in ['a'..'z']) then writeln ('Cимвол ', N, ' - латинского алфавита')
 else writeln ('Cимвол ', N, ' - русского алфавита');
end.