Решить задачку. Пользователь вводит 2 числа, вывести на экран наибольшее и

var a, b : integer;
begin
write(Введите a: );
readln(a);
write (Введите b: );
readln (b);
if a gt; b then writeln(Наибольшее число ,a,. Малое число ,b,.);
if a lt; b then writeln(Наибольшее число ,b,. Малое число ,a,.);
if a = b then writeln(a = b.);
end.