Двумерный массив в Делфи(СРОЧНО)

[jackass92]

Ребята, помогите, пожалуйста. Пропустил лекцию по двумерным массивам и теперь вообще не пойму, как это делается. Алгоритмы писать умею, а вот с программами - беда. Иду на автомат, а две проги всё портят. Вот два задания, буду очень признателен.
а) Для массива L(N,M) найти кол-во положительных, отрицательных и нулевых элементов;
б) Из массива M(4,5) сформировать массив B(5), каждый элемент которого равен произведению ненулевых элементов соответствующего столбца массива M.

[ViktorR]

Определи константы row = N и col = M // строка и колонка
Определи тип массива, например
Type TMas = array[1..row,1..col] of integer;
Опиши процедуру, инициализации массива

procedure Init(var mas: TMas);
var i, j : integer;
begin
   randomize;
   for i:= 1 to row do
      for j:= 1 to col do
         mas[i,j] := random(100)-50;
end;

Опиши процедуру анализа элементов массива

procedure Analiz(mas: var TMas; Pos,Zer,Neg: integer);
var i, j : integer;
begin
   for i:= 1 to row do
      for j:= 1 to col do
         if mas[i,j] > 0 then
            pos := pos + 1
         else
            if mas[i,j] = 0 then
               zer := zer + 1
            else
               neg := neg + 1;
end;

Далее используй это в программе.
PS: Это Паскаль, но думаю, что для переноса в Делфи ума хватит ...
Вторая задача почти аналогична. Для поиска произведения инициализируй переменную единицей, а затем ищи произведение ненулевых элементов:

...
   Mul := 1;
{Цикл по столбцам}
  {Цикл по строкам}
   if mas[i,j] <> 0 then
      Mul := Mul*mas[i,j];
  {конец цикла по строкам}
   B[j] := Mul;
{конец цикла по столбцам}
...

Как-то так, ...