Склавиатуры вводится две латинские буквы(неизвестно, больших или малых) выведете на экран стоит ли в алфавите первая буква перед второй. pascal abc

Var
  c1,c2:char;
begin
  Write('Введите две латинские буквы подряд без пробелов: ');
  Readln(c1,c2);
  c1:=UpCase(c1); c2:=Upcase(c2);
  if c1<c2 then Writeln('Первая буква следует в алфавите перед второй')
  else
    if c1=c2 then Writeln('Это одна и та же буква')
    else Writeln('Первая буква следует в алфавите после второй')
end.

Тестовое решение:
Введите две латинские буквы подряд без пробелов: Qp
Первая буква следует в алфавите после второй