Паскаль.Даны два числа. Нужно вывести в порядке а) возрвстанияб) убывания

Предыдущий
вопрос Следующий
вопрос

var a,b: integer;

begin

readln(a,b);

writeln('a)');

if a>b then writeln(b,' ',a) else writeln(a,' ',b);

writeln('б)');

if a<b then writeln(b,' ',a) else writeln(a,' ',b);

end.