Сортировка массива

[Kraven]

Сортировка простыми вставками. Дано действительную матрицу размером n*m. Упорядочить (переставить) строки матрицы по не убыванию сумм элементов столбцов.

--------
Буду рад помощи. Если кто то может написать код программы пусть даже через паскаль - то напишите пожалуйста.

[puporev]

Непонятно, если суммы считаем в столбцах, то при чем тут строки?

[Kraven]

Прошу прощения. " по не убыванию сумм элементов строк".

[puporev]

Вот держи в Паскале.

var a:array[1..20,1..20]of integer;
    n,m,i,j,sum,k,x,p:integer;
begin
write('Vvedite kolichestvo strok n= ');readln(n);
write('Vvedite kolichestvo stolbcov m= ');readln(m);
randomize;
Writeln('Ishodnaja matrica:');
for i:=1 to n do
   begin
     for j:=1 to m  do
       begin
         a[i,j]:=random(10);
         write(a[i,j]:4);
       end;
     writeln;
   end;
readln;
for i:=1 to n do
  begin
   sum:=0;
   for j:=1 to m do
    begin
      sum:=sum+a[i,j];{schitaem summu v stroke}
      a[i,m+1]:=sum;  {zanosim v dopolnitelnyj stolbec}
    end;
  end;
for i:=2 to n do      {sortirovka strok prostymi vstavkami}
for k:=1 to i-1 do
if a[i,m+1]<a[k,m+1] then
    begin
      for j:=1 to m+1 do
        begin
          x:=a[i,j];
          for p:=i-1 downto k do
          a[p+1,j]:=a[p,j];
          a[k,j]:=x;
       end;
    end;
Writeln('Otsortirovannaja matrica:');
for i:=1 to n do
    begin
      for j:=1 to m do
      write(a[i,j]:4);
      writeln;
    end;
readln
end.