Найти номер первой строки матрицы, в которой произведение всех её элементов положительно

program abc;
var
f : array[1..10, 1..13] of double;
summ : double;
i, j, x, countofMinus : integer;
begin
Randomize();
summ := 1;
countofMinus := 0;
for i:= 1 to 10 do
begin
for j:= 1 to 13 do
begin
f[i,j]:= Random(-3,20);
write(f[i,j] + ' ');
end;
writeln();
end;
for i:=1 to 10 do
begin 
for j:=1 to 13 do
summ *= f[i,j];
if(summ >= 0)
then 
begin
x := i;
break;
end
else
continue;
end;
writeln('Строка - ' + x.ToString());
if(x > 5) then
begin
for i:=1 to 10 do
begin
for j:=1 to 13 do
begin
f[i,j]:=f[10-i, 13-j];
write(f[i,j] + ' ');
end;
writeln();
end;
end
else 
begin
for i:=1 to 10 do
for j:=1 to 13 do
begin
if(f[i,j] < 0) then
countOfMinus+=1;
end;
end;
if(countOfMinus > 0) then
writeln('В матрице есть отрицательные элементы.');
if(countOfMinus = 0) then
writeln('В матрице нет отрицательных элементов'); 
end.

for i:= 1 to 10 do
begin
for j:= 1 to 13 do
begin
f[i,j]:= Random(-3,20);
write(f[i,j] + ' ');
end;
writeln();
end;

for i:= 1 to 10 do
begin
for j:= 1 to 13 do
begin
readln(f[i,j]);
end;
writeln();
end;

//цикл ввода матрицы
for i:= 1 to 10 do
begin
for j:= 1 to 13 do
begin
readln(f[i,j]);
end;
writeln();
end;
// цикл вывода введенной матрицы
for i:= 1 to 10 do
begin
for j:= 1 to 13 do
begin
write(f[i,j] + ' ');
end;
writeln();
end;