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

Const n=4; m=5; 
Type mas = array [1..n,1..m] of integer; sum = array[1..M] of integer;
Var a: mas; 
 
Procedure Laba3 (Var t:mas); 
Var i, j: integer; 
begin 
randomize; 
writeln ('элементы массива: '); 
for i:=1 to n do 
for j:= 1 to m do 
begin 
t[i,j]:=random(60); 
write(t[i,j], ' ') 
end; 
end; 
 
Procedure Print (t: mas); 
Var i,j: integer; 
begin
 writeln ('. Массив: ');
begin 
for i:=1 to n do 
begin 
for j:=1 to m do 
write (t[i,j]:5 , ' '); 
writeln; 
end; 
end; 
end; 
 
Procedure Summa(t: mas); 
Var i,j: integer; 
mat:=a; 
sum: integer; 
begin 
 writeln('Сумма столбцов:'); 
 for j:=1 to m do begin // подсчет сумм 
 sum := 0; 
 for i:=1 to n do 
 sum := sum + mat[i,j]; 
 write(sum:5); 
 
 end; 
 end; 
 
 
   Procedure Puzir (t: mas); 
Var i, j, k: integer; 
R: array[1..M] of integer;
const M=10; 
begin
  writeln;
 
    for i := 1 to M-1 do
        for j := 1 to M-i do
            if sum[j] > sum[j+1] then begin
                k := sum[j];
                sum[j] := sum[j+1];
                sum[j+1] := k
            end;
 
    write('Отсортированный: ');
    for i := 1 to M do
        write (sum[i]:3);
    writeln;
end;
 
 
 
 
 
Begin 
Laba3 (a); 
Print(a); 
Summa(a);
Puzir (t: mas);  
end.

Const m=5;n=4;
Type mas = array [1..m,1..n] of integer;
Var a: mas;
 
Procedure GenArray(Var t:mas);
Var i, j: integer;
begin
randomize;
for j:=1 to n do begin for i:= 1 to m do  t[i,j]:=random(60) end;
end;
 
Procedure Print (var t: mas);
Var i,j: integer;
begin
writeln ('Massiv:');
for j:=1 to n do
    begin
    for i:=1 to m do write (t[i,j]:5 , ' ');writeln;
    end;
end;
 
Function Summa(var t: mas;x:integer):integer;
Var j: integer;
Var sum: integer;
begin
 sum:=0;
 for j:=1 to n do sum:=sum+t[x,j];
 Summa:=sum;
end;
 
Procedure PrintSum(var t:mas);
var i:integer;
begin
writeln ('Summy:');
for i:=1 to m do write (Summa(t,i):5 , ' ');
writeln;
end;
 
procedure SwapCol(var t: mas; x1:integer; x2:integer);
Var j: integer;
Var tmp: integer;
begin
for j:=1 to n do begin tmp:=t[x2,j];t[x2,j]:=t[x1,j];t[x1,j]:=tmp end;
end;
 
procedure BubSort(var t: mas);
var s1,s2,i:integer;
var exflag:boolean;
begin
repeat
    exflag:=true;
    for i:=1 to m-1 do
        begin
        s1:=Summa(t,i);s2:=Summa(t,i+1);
        if (s1<s2) then begin exflag:=false;SwapCol(t,i,i+1) end;
        end; {for}
until exflag=true;
end;
 
Begin
GenArray(a);
Print(a);
PrintSum(a);
writeln('Sorting...');
BubSort(a);
Print(a);
PrintSum(a);
end.

procedure BubSort(var t: mas);
var
  i: Integer;
  exflag: Boolean;
begin
  repeat
    exflag:=True;
    for i:=1 to m-1 do
      if Summa(t,i)<Summa(t,i+1) then begin
        exflag:=False;
        SwapCol(t,i,i+1);
      end;
  until exflag;
end;

const m=5; n=4;
type
  TMatrix = array [1..m, 1..n] of Integer;
 
procedure BubSort(var t: TMatrix);
var
  i, j, k, nk: Integer;
  s: array [1..n] of Integer;
begin
  for j:=1 to n do begin
    s[j]:=0; for i:=1 to m do Inc(s[j],t[i,j]);
  end;
  k:=n;
  repeat
    nk:=k; k:=1;
    for j:=1 to nk-1 do
      if s[j]<s[j+1] then begin
        for i:=1 to m do begin
          k:=t[i,j]; t[i,j]:=t[i,j+1]; t[i,j+1]:=k;
        end;
        k:=s[j]; s[j]:=s[j+1]; s[j+1]:=k;
        k:=j;
      end;
  until k=1;
end;