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

program zz1;
var a, b:integer; // заводим переменные
begin
write( введите 1-ое начальное число ); // вводим с клавиатуры первую сторону
read(a);
write( введите 2-ое начальное число ); // вводим с клавиатуры вторую сторону
read(b);
if agt;b then writeln(a, ,b) else writeln(b, ,a); //проверяем какое число больше и выводим числа по убыванию
if agt;b then write( наибольшее число = ,a) else write( наибольшее число = ,b);//проверяем какое число больше и выводим наибольшее число из 2-ух
end.