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

Var a,b,a1,b1:integer;
begin
readln(a,b);
a1:=sqr(a);
b1:=sqr(b);
if a1>b1 then write(a1)
else write(b1);
end.

Конкретно я затупила на этой легкой программе, но все таки
Program kvadrat;
var a,b:integer;
begin
writeln('введите два числа');
readln(a);
readln(b);
if (a>b)
 then
 begin
a:= a*a;
 write(a);
end;
If (a<b)
then
begin
b:= b*b;
write(b);
end;
end.