Поиогите решить программу с сортировкой матрицы

[XXXimpulsXXX]

Упорядочить столбцы матрицы по убыванию суммы элементов столбца методом бинарного включения.

[KORT]

Вот посмотри:

program matrix;
const
RCount = 10; { Кол-во строк }
CCount = 5; { Кол-во столбцов }
type
TMatrix = array [ 1..RCount, 1..CCount ] of Integer; { Тип "Матрица" }

procedure EnterMatrix(var m : TMatrix);
{ Ввод матрицы }
begin
end;
procedure PrintMatrix(var m : TMatrix);
{ Вывод матрицы }
begin
end;

procedure SortMatrix(var m : TMatrix);
{ Сортировка матрицы}
procedure SwapLines(i,j:Integer);
{ Обменивает строки матрицы местами }
var
tmp: Integer;
k : Integer;
begin
for k:=1 to CCount do begin
tmp:=m[i,k];
m[i,k]:=m[j,k];
m[j,k]:=tmp;
end;
end;
var
i,j:integer;
begin
for i:=1 to RCount-1 do begin
for j:=i to RCount-1 do begin
if m[j,1] < m[j+1,1] then
SwapLines(j,j+1);
end;
end;
end;

var
m:TMatrix;
begin
EnterMatrix(m);
SortMatrix(m);
PrintMatrix(m);
end.

[XXXimpulsXXX]

Большое спасибо))

[KORT]

Сообщение от XXXimpulsXXX

Большое спасибо))

Пожалуйстта...

[puporev]

Да . . Ни нахождения сумм в столбцах, ни сортировки по сумме, я уж не говорю о бинарных вставках. Хотя может за большое спасибо так и надо?

[XXXimpulsXXX]

почему же нету сортировки? он сортирует прямым методом, а для бинарного я уже и сам сделал...