матрица дайте совет

[Mokriy]

заполнить и вывести матрицу после вывести номер столбица с минимальным значением умноженых елементов.
не пойму как заставить умножаться елементы столбца может кто подсказать?

[Mokriy]

задачу в принцепе зделал правда на суму но то не так важно у меня бред с выводом помогите вот код

Program matriza;
Uses crt;
Const
N=5;
M=5;
Var
A:array [1..N,1..M] of integer;
Sum:array [1..M] of integer;
k,i,j,Min,fl,Amax:integer;

Begin
ClrScr;
Randomize;
writeln('Isxodnii massiv: ');
For i:=1 to N do
Begin
For j:=1 to M do
Begin
A[i,j]:=random(15)-3;
write(A[i,j]:3);
End;
writeln;
End;
writeln;
writeln('Symma v stolbzax: ');
For j:=1 to M do
Begin
For i:=1 to N do
Begin
Sum[j]:=Sum[j]+A[i,j];
End;
sum[j]:=abs(sum[j]);
write(sum[j]:3);
End;
Min:=sum[1];
writeln;
For j:=2 to M do
Begin
If Min>sum[j] then
min:=sum[j];
write(min);
End;
readln;
End.

[Mokriy]

я очень прошу кому не спиться на утро скажыте что подправить просто щас очень спать хочу заранее спасибо

[eoln]

Program matriza;
Uses crt;
Const
N=5;
M=5;
Var
A:array [1..N,1..M] of integer;
Pro:array [1..M] of integer;
num, k,i,j,Min,fl,Amax:integer;

Begin
ClrScr;
Randomize;
writeln('Isxodnii massiv: ');
For i:=1 to N do
Begin
For j:=1 to M do
Begin
A[i,j]:=random(15)-3;
write(A[i,j]:3);
End;
writeln;
End;
writeln;
writeln('Proizvedenie v stolbzax: ');

For j:=1 to M do
Begin
For i:=1 to N do
Begin
if i=1 then Pro[j]:=A[i, j] else Pro[j]:=Pro[j]*A[i,j];
End;
{sum[j]:=abs(sum[j]);}
write(pro[j],' ');
End;
Min:=pro[1];
num := 1;
writeln;
For j:=2 to M do
Begin
If Min>pro[j] then begin
min:=pro[j];
num := j
end;
End;
write('num = ', num, ' Znachenie = ', min);
readln;
End.

[Mokriy]

огромное спасибо eoln