даны 2 двухзначных числа сравнить какое число наибоьшее по паскалю

program abs;

var a, b:integer;

begin

writeln ('Введите 1-е двухзначное число') ;

readln (a) ;

writeln ('Введите 2-е двухзначное число') ;

readln (b) ;

if a>b then writeln ('первое число больше')

else writeln ('второе число больше') ;

end.