Программа, которая ждет ввода буквы и, в зависимости от введенного значения, сообщает, является ли буква заглавной или строчной — Pascal(Паскаль)

program fs;

var
  c: char;

begin

  write('Vvedite BUKVU: ');
  readln(c);

  if (ord(c) >= 65) and (ord(c) <= 90) then
    writeln('Zaglavnaya')
  else
    writeln('Propisnaya');

  readln;

end.