В матрице найти номер столбца с наибольшим по модулю произведением - Pascal

uses
  crt;
const
  n_max = 10;
var
  A: array [ 1 .. n_max , 1 .. n_max ] of integer;
  i, j, index, n, m: integer;
  p, max: longint;
begin
  clrscr;
  randomize;
  repeat
    write('Введите количество строк: ');  readln(n);
    write('Введите количество столбцов: ');  readln(m);
  until ( n in [ 1 .. n_max ] ) and ( m in [ 1 .. n_max ] );
 
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          A[i,j]:=random(n_max)-n_max div 2;
          write(A[i,j]:3);
        end;
      writeln;
    end;
 
  p:=1;
  for i:=1 to n do
    p:=p*abs(A[i,1]);
 
  writeln('Произведения столбцов: ');
  writeln(p);
  max:=abs(p);  index:=1;
  for j:=2 to m do
    begin
      p:=1;
      for i:=1 to n do
        p:=p*abs(A[i,j]);
        writeln(p);
        if p > max then
          begin
            max:=p;
            index:=j;
          end;
    end;
 
  writeln('Максимум из произведений: ',max,' в столбце: ',index);
  readln;
end.