Работа с матрицей Опции

[Merlin]

Дана матрица A размером m x n , состоящая из натуральных чисел, больших 1.
В этой задаче требуется найти :

1). Строки матрицы упорядочить по невозрастанию произведения элементов строк
2). Составить одномерный массив B, в котором Bj , равен номеру столбца, содержащего только числа, кратные 5, в противном случае Bj = 0.

---------------

Как упорядочить по невозрастанию я знаю, а вот вопрос : Как найти произведение строк ?

[Merlin]

Матрица

Program h;
  const
      m=5;
       n=4;
       matrix: array[1..m,1..n] of integer=
             (     
               (3,2,4,6),
               (2,5,3,5),
               (5,7,3,5),
               (4,6,3,2),
               (9,5,2,6)
              );
..............................

Подскажите так надо делать 2). пункт моего задания или нет ?

    for j:=1 to n do begin
 if  n mod 5=0 then  B[j]:=n;
   else B[j]:=0;