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

[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.

[s.Creator]

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

  write(B[i]:4);
end;