Определить количество положительных и отрицательных элементов матрицы

program mas;
var
i,j,ipol,iotr:integer;
x:array[1..5,1..3]of integer;
begin
ipol:=0;
iotr:=0;
Randomize;
For i:=1 to 5 do
For j:=1 to 3 do x[i,j]:=Random(10)-5;
For i:=1 to 5 do
begin
For j:=1 to 3 do write(x[i,j],' ');
writeln;
end; 
begin
if x[i,j] < 0 then 
iotr:=iotr+1;
if x[i,j] > 0 then 
ipol:=ipol+1;
end;
writeln('kolvo pol ',ipol);
writeln('kolvo otr ',iotr);
readln;
end.

program mas;
var
i,j,t,p:integer;
x:array[1..5,1..3]of integer;
K:array[1..2] of integer;
begin
K[1]:=0;
K[2]:=0;
Randomize;
For i:=1 to 5 do
For j:=1 to 3 do x[i,j]:=Random(10)-5;
For i:=1 to 5 do
begin
For j:=1 to 3 do write(x[i,j],' ');
writeln;
end;
For i:=1 to 5 do
begin
t:=0;
For j:=1 to 3 do 
begin
if x[i,j] < 0 then 
K[1]:=K[1]+1;
if x[i,j] > 0 then 
K[2]:=K[2]+1;
if x[i,j]<0 then t:=t+1;
end;
if t>1 then p:=i;
End;
if p>0 then 
Begin
writeln('Более одного элемента отриц-го в строке ',p);
For j:=1 to 3 do
X[p,j]:=5;
For i:=1 to 5 do
begin
For j:=1 to 3 do write(x[i,j],' ');
writeln;
end;
End
else writeln('Нету строки с более одним элементом отриц-ым ');
writeln('kolvo pol ',K[2]);
writeln('kolvo otr ',K[1]);
readln;
end.