// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-110,110);
  a.Println;
  var max2:=sqr(a.Max);
  for var i:=0 to a.Length-1 do
    if a[i]<=0 then a[i]*=max2;
  a.Println
end.

Тестовое решение:
n= 10
52 -62 106 -110 33 87 46 107 -62 6
52 -709838 106 -1259390 33 87 46 107 -709838 6

Const n = 10;
var i,max: integer;
a:array[1..10] of integer;
begin
  max :=-110;
  for i:=1 to n do begin
    a[i]:= random(221) - 110;
    if a[i]>max then max:=a[i];
    write(a[i]:5);
  end;
  writeln;
  for i:=1 to n do begin
    if a[i]<=0 then a[i]:=a[i]*sqr(max);
    write(a[i]:5);
  end;
end.