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

Program al;
var  a,b:integer ;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if abs(a)>abs(b)
then
writeln ('naimensee=',b)
else
writeln('naimensee=',a);
readln;
end.