matrix

[legita]

дана матрица В[i,j], i=1,2..4,j=1,2..4.
найти произведение положительных элементов в каждом столбце матрицы.


program DM_6;
Type
matrix=array[1..4,1..4] of real;
var
B:matrix;
i,j:integer;
Pr:array [1..4] of real;
writeln('vvedite matricy B');
for i:=1 to 4 do
for j:=1 to 4 do read(B[i,j]);
for i:=1 to 4 do begin
Pr[j]:=1;
if B[i,j]>0 then Pr[j]:=Pr[j]*B[i,j];
end;
for j:=1 to 4 do write(Pr[j]:8:2);
writeln;
end.

как сделать чтобы правильно считалось произведение в столбце?програмка выдает неверный ответ(((((

[GetMax]

for j:=1 to 4 do 
begin
  Pr[j]:=1;
  For i:=1 to 4 do
  if B[i,j]>0 then Pr[j]:=Pr[j]*B[i,j];
end;

[legita]

благодарю))))