信息奥赛PASCAL语言程序：问题-输入两个大写字母,按字典顺序输出.

var
a,b:char;
begin
readln(a,b);
if ord(a)>ord(b) then writeln(b,' ',a)
else (writeln(a,' ',b));
end.
应该没错