Решить . пользователь вводит 2 числа, вывести на экран максимальное и минимальное из этих 2 чисел. если числа равны, вывести на экран "a=b". 34

Var a,b:integer;
begin 
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if a=b then writeln ('a=b') else 
begin
if (a>b) then writeln('max=',a,' min=', b) else 
writeln ('max=',b, ' min=', a)
end;
readln;
end.