Составить программу, которая: a) определяет два символа по их , введенных с клавиатуры; b) вывести их на экран в порядке убывания.

// PascalABC.Net 3.0, сборка 1064
var
  a,b:byte;
begin
  Write('Введите два кода символов, большие 31: '); Read(a,b);
  if (a<32) or (b<32) then Writeln('Код должен быть больше 31')
  else begin
    Write('Символы, соответствующие кодам: <');
    if a>b then Write(Chr(a),'> и <',Chr(b),'>')
    else Write(Chr(b),'> и <',Chr(a),'>')
  end
end.

Тестовое решение:
Введите два кода символов, большие 31: 42 198
Символы, соответствующие кодам: <Ж> и <*>