HELP!!! помогите пожалуйста с двумерными массивами

var
i,j:integer;
R:integer;{4islo strok}
C:integer;{4islo stolbcov}
M:array[1..10,1..10] of integer;{dvumernii massiv}
S:array[1..10] of integer;{massiv summi elementov v strokah massiva M}
X:array[1..10] of integer;{massiv soderzhashii 4islo otricatel'nih elementov}
begin
{Sdes idet vvod dannih}
write('Vvedite 4islo strok i nazhmite Enter: ');
readln(R);
write('Vvedite 4islo stolbcov i nazhmite Enter: ');
readln(C);
for i:=1 to R do
begin
for j:=1 to C do
begin
writeln(i,'-ya stroka massiva. Vvedite ',j,'-i element i nazhmite Enter');
Readln(M[i,j]);
S:=S+M[i,j];{srazu s4itaem summu elementov po i-i stroke}
end;
end;
{Ras4et po formulam}
for i:=1 to R do
begin
for j:=1 to C do
begin
if S>0 then {esli summa v i-i stroke bolshe 0}
begin
if M[i,j]<0 then {proveryaem otricatel'nii element}
begin
X:=X+1;
end;
end;
end;
end;
{Vivod rezultatov}
writeln('Vvedennii massiv:');
for i:=1 to R do
begin
for j:=1 to C do
begin
write(M[i,j]:4)
end;
if S>0 then
begin
writeln(' Koli4estvootricatelnih elementov:',X:3);
end
else
begin
writeln(' Summa elementov menshe 0');
end;
writeln('');
end;
readln;
end.
+Исходник выслал по почте

Надо - подсчитай !

К тебе со счетами что ли вприпрыжку бежать ?)

Совсем школота совесть потеряла)

даю примерный алгоритм:
первый цикл проходит по каждой строке (т. е. цикл по y). Внутри этого цикла - цикл по х для КАЖДОЙ строки, т. е. по каждому элементу строки проходим. Так вот проходя по элементам каждой строки, считаем их сумму в этой строке, и если он больше нуля (первое условие) то опять проходимся по этой же строке, но уже проверяя каждый эл-т на отрицательность (второе условие) и подсчитываем кол-во эл-ов прошедших это условие как true.
И так далее каждую строку.
Все.

Я так понял ДЗ, надо было препода слушать))) ) 2 Цикла перебирающие элементы массива и два условия .

и