Задача на матрицы Опции

[RAVE]

Условие задачи: "Сформировать из строк матрицы B матрицу C, расположив строки так, чтобы количество положительных элементов в строке возрастало с увеличением её порядкового номера". Помогите решить её, плз. (процедуры и функции использоваться не должны).

[samec]

var
b:array[1..100,] of integer;
i,j, s1,s2,
    n             {кол-во строк}
   ,m            {кол-во столбцов}
   :integer;
begin
(*вводим размерность матрицы (n*m), 
  затем элементы самой матрицы*)
for k:=1 to n-1 do
 for i:=1 to n-k do
  begin
    s1:=0; {кол-во положительных элементов}
    s2:=0;
    for j:=1 to m do
     begin
       if (b[i,j]>0) then inc(s1);
       if (b[i+1,j]>0) then inc(s2);    
     end;
     if (s1>s2) then
        {меняем строки b[i,j] и b[i+1,j] местами}
  end;
end.

вот как то так....