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

var
a, b: integer;
begin
write ( Введите первое число: );
readln ( a );
write ( Введите второе число: );
readln( b );
if a lt; b then write ( 2-ое число больше, чем 1-ое. )
else write ( Первое число больше, чем второе. );
if a = b then write ( Числа одинаковы. )
end.