двумерный массив Опции

[help]

Такая вот задача:
Дана целочисленная матрица размером MxN
1. переставить строки матрицы в порядке возрастания суммы элементов строк
2. сформировать одном. численный массив В, где B[i] - равно сумме кратных 7-ми и расположенных в i-ой строке матрицы.

[klem4]

2-я

Код

uses crt;
const n=4;
var  a:array[1..n,1..n] of integer;
    b:array[1..n] of integer;
    i,j,s:integer;
Begin
  clrscr;
  randomize;
  for i:=1 to n do
   begin
      for j:=1 to n do
       begin
          a[i,j]:=random(22);
          write(a[i,j]:2);
          write(' ');
       end;
       writeln;
    end;
   for i:=1 to n do
    begin
       b[i]:=0;
       s:=0;
       for j:=1 to n do
        if a[i,j] mod 7 = 0 then
         s:=s+a[i,j];
       b[i]:=s;
    end;
   writeln;
   for i:=1 to n do
    begin
       write(b[i]:2);
       write(' ');
    end;
   readln;
end.