задача по матрице, Ребята, кто шарит, помогите решить задач Опции

[Chopper]

:low: Дана матрица А размером MxN, состоящая из натуральных чисел, больших 1. Выполнить следующие действия:
1) строки матрицы А упорядочить по невозрастанию произведения элементов строк.
2) составить одномерный массив В, в котором элемент Вj, равен номеру столбца, содержа-щего только числа, кратные 5, в противном случае Вj = 0.

[mithquessir]

Вот вторая:

Код

const
 n = 3;
 m = 5;
 flg:boolean = false;
 a:array[1..n,1..m] of integer = ((0,5,5,5,1),(10,5,1,5,5),(10,5,5,5,8));
var
 b:array[1..n] of integer;
 i,j,num:integer;
begin
 for i := 1 to m do
   begin
     for j := 1 to n do
       if (a[j,i] mod 5 = 0) and (a[j,i] > 1) then
         flg := true
       else
         begin
           flg := false;
           break;
         end;
     if flg then
     begin
       inc(num);
       b[num] := i;
     end;
   end;
 for i := 1 to num do
 Write(b[i]:2);
end.

volvo
Проверь, что-то она глючно работает. <_<