Задание: выведение числа замен [Паскаль]

[shAdoo00w]

Процедура Р заменяет значением F(Z[j]) каждый отрицательный элемент z[j], который идет вслед за положительным, и подсчитайте число замен.В каждой второй строке матрицы заменить каждый отрицательный элемент, идущий за положительным, абсолютной величиной элемента. Вывести число замен для всей матрицы.

сердечно прошу помочь..

[Niro]

код не проверял, но должно быть правильно

for i:=1 to n do
for j:=1 to m do
 if (i mod 2)<>0 then begin
                      if (mas[i,j]>0) and (mas[i,j+1]<0) then
                          begin                                                
                             mas[i,j+1]:=ads(mas[i,j+1];
                             k:=k+1; {число замен}
                           end;
                      end;

P.S. каждая вторая строка начиная с первой, т.е. 1,3,5 и т.д.