Дано 2 числа,ввести на экран большее из них

Var
a,b:integer;
begin
write('введите два числа');
readln(a,b);
if a>b then writeln(a);
if b>a then writeln(b);
if a=b then writeln('эти числа равны');
end.