Составить программу на языке Паскаль если два числа положительные, то возвести оба числа в квадрат если оба числа отрицательные, то найти их модуль

Var a,b: integer;
begin
readln(a,b);
if((alt;0)and(blt;0)) then writeln(-a, ,-b)
else
begin
if((agt;=0)and(bgt;=0) then writeln(a*a, , b*b)
else writeln(Заданные числа не соответствуют условиям);
end;
end.
end.