Паскаль, матицы.

[Elusive Devil]

В заданной матрице нужно вычислить количество и произведение отрицательных элементов в нечётных строках; элементы строк, где эти произведения отрицательны, нужно заменить нулями.

Помогите пожалуйста решить. Заранее большое спасибо!

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n,1..n]of integer;
    i,j,kol,m:integer;
    
begin
clrscr;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
     a[i,j]:=random(10)-random(10);
     if a[i,j]=0 then a[i,j]:=1;
     write(a[i,j]:4);
   end;
   writeln;
 end;
for i:=1 to n do
if i mod 2= 1 then
 begin
   kol:=0;m:=1;
    for j:=1 to n do
      if a[i,j]<0 then begin
                        inc(kol);
                        m:=m*a[i,j];
                       end;
  writeln('str',i,'  ',kol,' ',m);
  if m<0 then for j:=1 to n do
                 a[i,j]:=0;
 end;
 
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:4);
   writeln;
  end;
readln;
end.

[Elusive Devil]

Спасиб за труд, но только прогорамма неправильно считает количесвто элементов и произведение отрицательных чисел((

[alex_fcsm]

У меня все правильно считает, а у тебя нет. Выложи результат где неправильно