Pascal создайте программу что бы найти большую из двух чисел

Var a,b:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
if a>b then
writeln('Первое число больше второго');
if a<b then
writeln('Второе число больше первого')
else
writeln('Числа равны');
end.