Составить программу, которая упорядочивает 2 числа по убыванию…

Var a,b: integer; beginwriteln (a); readln (a); writeln (b); readln (b); if a>b then writeln (a, ', ', b) else writeln (b, ', ',a); if a>b then writeln (a, ' — максимум') else writeln (b, ' — максимум'); end.