Даны два числа. Вывести вначале большее, а затем меньшее из них — Pascal(Паскаль)

Program If8;

Var
  A, B: Integer;

Begin
  WriteLn('Введите числa A и B: ');
  ReadLn(A, B);
  If A > B Then
    WriteLn(A, ' ', B)
  Else
    WriteLn(B, ' ', A);

End.