Задача на процедуру.

[Буханкин]

Задача:Составить процедуру ,формирующую одномерный массив из произведений элементов в строках заданной матрицы.Используя эту процедуру,подсчитать количество отрицательных произведений элементов в строках заданной матрицы P.
Вот матрица P:
-0.51 1.003 -1.0
5.02 -1.0 -3
71.4 5.9 -7.1

program asd;
type
mas=array [1..3,1..3] of real;
mas1=array [1..3] of real;
var p:mas;p1:mas1;
i:integer; kol:integer;j:integer;
procedure pr(x:mas;var p1:mas1);
var i,j:integer;proiz:real;
begin
for i:=1 to 3 do begin
proiz:=1;
for j:=1 to 3 do
proiz:=proiz*x[i,j];
p1[i]:=proiz;
end;
end;
begin
for i:=1 to 3 do
for j:=1 to 3 do
read(p[i,j]);
pr(p,p1);
kol:=0;
for i:=1 to 3 do
if p1[i]<0 then kol:=kol+1;
writeln('kol=',' ',  kol);

end.

Подскажите пожалуйста что не так в коде?

[Буханкин]

Решил.Не актуально.