Заменить все элементы первых трех столбцов матрицы на их квадраты; заменить максимальный элемент каждой строки на противоположный

uses crt;
var
   a:array [1..1000,1..1000] of integer;
   max,imax,jmax:array [1..3] of integer;
   i,j:integer;
begin
     for i:=1 to 3 do
     begin
          for j:=1 to 4 do
          begin
               a[i,j]:=-10+random(21);
               write(a[i,j]:5);
          end;
          writeln;
     end;
     writeln;
     for i:=1 to 3 do
     begin
          for j:=1 to 4 do
          begin
               if j<=3 then
               write(sqr(a[i,j]):5)
               else write (a[i,j]:5);
          end;
          writeln;
     end;
     writeln;
     for i:=1 to 3 do
     begin
          max[i]:=a[i,1];
          for j:=1 to 4 do
               if a[i,j]>max[i] then
                  begin
                       max[i]:=a[i,j];
                       imax[i]:=i;
                       jmax[i]:=j;
                  end;
     end;
     for i:=1 to 3 do
     begin
          for j:=1 to 4 do
          begin
               if (imax[i]=i) and (jmax[i]=j)
               then a[imax[i],jmax[i]]:=a[imax[i],jmax[i]]*(-1);
               write (a[i,j]:5);
          end;
          writeln;
     end;
end.