Даны два числа, вывести на экран квадрат большего из них

Программа написана на языке Delphi. Ввод двух чисел в текстовые окна программы и вывод квадрата большего числа, после нажатия кнопки.

var

Form1: TForm1;

r, a:integer;

implementation

{$R *. dfm}

procedure TForm1. Button1Click (Sender: TObject);

begin

a: = strtoint (Edit1. Text);

r: = strtoint (Edit2. Text);

if (a-r) > 0 then

begin

Label1. caption: = inttostr (a * a); / /вывод квадрата числа на экран.

end

else

begin

Label1. caption: = inttostr (r * r); / /вывод квадрата числа на экран.

end;

end;

end.