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

а если я введу точку или запчтую или любой другой символ, то мне скажет, что это русский алфавит, что неверно

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.