Задача в Delphi

[Milashka]

Помгите решить задачку на двумерные массивы пожалуйста

Определить количество положительных и отрицательных элементов матрицы В (n*m)

[MalexG]

var
  aMinus, aPlus: integer;
  A: array[0..N-1, 0..M-1] of integer;
...
aMinus := 0;
aPlus :=0;
for i := 0 to N-1 do
  for j := 0 to M-1 do
  begin
    if A[i,j] < 0 then
      inc(aMinus);
    if A [i,j] > 0 then
      inc(aPlus);
  end;