Определить номер столбца матрицы

var a:array[1..5,1..5]of integer;
    i,j,p,pr,jnum:integer;
begin
randomize;
for i:=1 to 5 do
begin
    for j:=1 to 5 do
    begin
        a[i,j]:=random(20)-5;
        write(a[i,j]:4);
    end;
    writeln;
end;
p:=1; jnum:=1;
for j:=1 to 5 do
begin
    pr:=1;
    for i:=1 to 5 do
    pr:=pr*a[i,j];
    if pr>p then
    begin
        p:=pr;
        jnum:=j;
    end;
end;
writeln('Макс. произведение= ',p,' Номер столбца= ',jnum);
end.

var a:array[1..10,1..10]of integer;
        i,j,p,pr,jnum,n,m,jmin,prmin,p1,j1:integer;
begin
writeln (' Введите n<=10 , m<=10 ');
readln(n,m);
writeln(' Введите элементы массива по строкам ');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
begin
end;
p:=1; jnum:=1; prmin:=10000; jmin:=10000;
for j:=1 to m do
begin
        pr:=1;
        for i:=1 to n do
        pr:=pr*a[i,j];
        if pr>p then
        begin
                p1:=p;
                j1:=jnum;
                p:=pr;
                jnum:=j;
                if prmin>pr then
                begin
                prmin:=p;
                jmin:=j1;
                end;
        end;
end;
writeln('Макс. произведение= ',p,' Номер столбца= ',jnum);
writeln('Мин. произведение= ',prmin,' Номер столбца= ',jmin);
end.