Найти квадрат наибольшего из двух чисел а и б. вывести на экран число 1, если наибольшим является число а , число 2- если наибольшим числом является б

Var a,b:integer;
begin 
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a>b) then  writeln (sqr(a),' ' ,1) else
writeln (sqr(b),' ', 2);
readln;
end.