Сортировка матрицы, чтобы столбцы располагались в порядке неувеличения сумм их элементов

program labaprogr3;
uses crt;
const x=5; y=8;
type Tarr=array [1..x,1..y] of integer;
function summ(var A:Tarr; k,j:integer):integer;
var i,S:integer;
begin
S:=0;
for i:=1 to k do
S:=S+a[i,j];
summ:=S;
end;
procedure sort(var A:Tarr; m,n:integer);
var b,j,k,i,s1,s2:integer;
begin
for k:=1 to n-1 do
 for j:=1 to n-k do
 begin
 s1:=summ(A,m,j);
 s2:=summ(A,m,j+1);
 if s1<s2 then
 for i:=1 to m do
 begin
 b:=a[i,j];
 a[i,j]:=a[i,j+1];
 a[i,j+1]:=b;
 end;
 end;
end;
procedure InArray(var A:Tarr; m,n:integer);
var i,j:integer;
begin
for i:=1 to m do
 for j:=1 to n do
 Read(a[i,j]);
end;
procedure OutArray(A:Tarr; m,n:integer);
var i,j:integer;
begin
for i:=1 to m do
 begin
 WriteLn;
 for j:=1 to n do
 Write(a[i,j],' ');
 end;
end;
var A,B:Tarr;
begin
clrscr;
InArray(A,4,5);
OutArray(A,4,5);
ReadLn;
sort(A,4,5);
WriteLn;
OutArray(A,4,5);
readkey;
InArray(B,5,8);
OutArray(B,5,8);
ReadLn;
sort(B,5,8);
WriteLn;
OutArray(B,5,8);
readkey;
end.