Помогите исправить задачу.

[Liver]

Матрица А состоит из 7 строк и 6 столбцов. Сформировать массив В катый элимент которого равен произведению элиментов расположенных в котом столбце матрици.
var
A:array[1..6,1..7] of integer;
B:array[1..7] of integer;
i,j:integer;
begin
randomize;
writeln('A:');
for i:=1 to 6 do begin
forj:=1 to 7 do
begin
A[i,j]:=random(9)+1;
write(A[i,j]:4);
end;
writeln;
end;
{дальше наш препод говорит что не правельно}
for i:=1 to 7 do begin
for j:=1 to 6 do
B[i]:=B[i]*A[i,j];
write(B[i]:4);
end;
readln;
end.

[Zeraim]

А вы сами посмотрите:

for i:=1 to 7 do begin
for j:=1 to 6 do
B[i]:=B[i]*A[i,j];
write(B[i]:4);

A[столбец,строка] а не A[строка,столбец] вы просто в цикле выйдите за граници массива.

При 1м проходе цикла, В(1) присваиваем значение В(1) умножить на А(1). Но, элемент В(1) у нас равен 0, и все остальные элементы массива В равны 0.