Веди 2 числа,найти наименьший квадрат .програма в паскали

Код программы;

var a, b:integer;

begin

 writeln('Введите 1 число: ');

 readln(a);

  writeln('Введите 2 число: ');

 readln(b);

 if sqr(a) > sqr(b) then

   writeln('Наименьший квадрат: ',sqr(b))

 else

      writeln('Наименьший квадрат: ',sqr(a))

end.