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

 program z2_1;
uses crt;
const
n1=6; a=-10;
m1=7; b=10;
var
a2:array[1..n1*2,1..m1] of integer;
max,m,n,i,j,l,p:integer;
begin
clrscr;
n:=n1;
m:=m1;
randomize;
  for i:=1 to n do
    for j:=1 to m do
         a2[i,j]:=a+random(b-a+1);
 writeln('isxodnii massiv: ');
     for i:=1 to n do begin
         for j:=1 to m do
          write(a2[i,j]:4);
          writeln;
                      end;
  max:=a2[1,1];
   for i:=1 to n do
     for j:=1 to m do
           if a2[i,j]>max then max:=a2[i,j];
    for i:=1 to n do begin
     for j:=1 to m do begin
     if a2[i,j]=max then begin
       for p:=n downto i+1 do
        for l:=1 to m do
         a2[p+1,l]:=a2[p,l];
       n:=n+1;
       for l:=1 to m do
        a2[i+1,l]:=0;
      break;
                         end;
                      end;
                    end;
writeln('izmenennii massiv: ');
  for i:=1 to n do begin   
   for j:=1 to m do
       write(a2[i,j]:4);
       writeln;
       end;
readln;
end.

program z2_2;
uses crt;
const
n1=6; a=-10;
m1=7; b=10;
var
a2:array[1..n1,1..m1] of integer;
max,m,n,i,j,l,p,x:integer;
begin
clrscr;
n:=n1;
m:=m1;
randomize;
  for i:=1 to n do
    for j:=1 to m do
         a2[i,j]:=a+random(b-a+1);
 writeln('isxodnii massiv: ');
     for i:=1 to n do begin
         for j:=1 to m do
          write(a2[i,j]:4);
          writeln;
                      end;
    write('vvedite A ');
    readln(x);
      for j:=1 to m do begin
       for i:=1 to n do begin
        if a2[i,j]>x then begin
         for p:=j to m-1 do
          for l:=1 to n do
           a2[l,p]:=a2[l,p+1];
        m:=m-1;
          break;
                          end;
                         end;
                        end;
writeln('izmenennii massiv: ');
for i:=1 to n do begin
  for j:=1 to m do
    write(a2[i,j]:4);
    writeln;
                end;
readln;
end.