Если максимальный элемент матрицы стоит во втором столбце, то заменить элементы столбца нулями

uses crt;
var
   a: array[1..100,1..100] of integer;
   i,j,n,m,max_i,max_j: byte;
begin
   clrscr;
   randomize;
   write('количество строк: ');
   readln(n);
   write('количество столбцов: ');
   readln(m);
   for i:=1 to n do
      begin
         for j:=1 to m do
            begin
               a[i,j]:=random(61)-30;
               write(a[i,j]:4);
            end;
         writeln;
      end;
   writeln;
   max_i:=1;
   max_j:=1;
   for i:=1 to n do
   for j:=1 to m do
      if a[i,j]>a[max_i,max_j] then
         begin
            max_i:=i;
            max_j:=j;
         end;
   if max_j=2 then
      for i:=1 to n do a[i,2]:=0;
   for i:=1 to n do
      begin
         for j:=1 to m do write(a[i,j]:4);
         writeln;
      end;
   readkey
end.

for i:=1 to n do
 begin
    for j:=1 to m do
       a[i,j]:=random(61)-30;
 end;
for i:=1 to n do
   begin
       for j:=1 to m do
          write(a[i,j]:4);
          writeln;
   end;