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

const 
  nmax=7;
type
  Tmatrix=array[1..nmax,1..nmax] of real;
var
  a:Tmatrix;
  i,j,m,n,nc:integer;
  p,minp:real;
  minset:boolean;
begin
  repeat
    write('Kolichestvo strok v matritse, ne bolee ',nmax,':');
    readln(n);
    write('Kolichestvo stolbtsov v matritse, ne bolee ',nmax,':');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  randomize;
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=random*10;
        write(a[i,j]:4:1);
        if j=m then
          writeln;
      end;
  writeln;
  minset:=false;
  for j:=1 to m do
    begin
    p:=1;
    for i:=1 to n do
      p:=p*a[i,j];
    if not minset then
      begin
        minset:=true;
        minp:=p;
        nc:=j;
      end
    else
      if p<minp then
        begin
          minp:=p;
          nc:=j;
        end;
    end;
  writeln('Nomer stolbtsa s naimensh. proizved.:',nc);
end.

Program n1;
Uses crt;
Const n=7;
      m=7;
Var a:array[1..n,1..m] of integer;
    d:array[1..m] of longint;
    i,j,min,e:integer;
Begin
 clrscr;
 if m>n then e:=m else e:=n;
 Randomize;
 writeln('Masiv:');
 writeln;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(9)+1;
     write(a[i,j]:e);
    end;
   writeln;
  end;
 for i:=1 to m*n do write('-');
 writeln;
 for j:=1 to m do
  begin
   d[j]:=1;
   for i:=1 to n do d[j]:=d[j]*a[i,j];
   write(d[j]:e);
  end;
 min:=1;
 for j:=1 to m do if d[j]<d[min] then min:=j;
 writeln;
 writeln('Stolbec s minimalnim proizvedeniem: ',min);
End.