Дана матрица В размером m x n o Сформировать из нее вектор

Const m=3; n=4; 
b:array[1..m,1..n] of real=
 ((-3.3,-1.6,5.7,4.3),(7.6,15.2,-9.1,-3),(-8.6,-3.7,1.3,-0.1));
var c:array[1..n] of real;
i,j:integer;
begin
for i:=1 to m do
 begin
 for j:=1 to n do write(b[i,j]:7:2);
 writeln;
end;
for j:=1 to n do c[j]:=1;
for j:=1 to n do
  for i:=1 to m do
   if b[i,j]lt;0 then c[j]:=c[j]*b[i,j];
writeln;
for j:=1 to n do write(c[j]:7:2);
writeln;
end.