Сортировка столбцов матрицы по невозрастанию - PascalABC.NET

Формулировка задачи:

Отсортировать элементы двумерного массива так чтобы суммы значений в каждом столбце образовывали невозрастающую последовательность.Код я нацарапан но сортировку суммы значений не могу сделать код прилагаю . Попытки сортировки начинаются с 30 строчки

const
    m = 5;
    n = 4;
 
var
    a: array[1..m,1..n] of byte;
    s: array[1..n] of byte;
    i,j,sum,Z,C: byte;
 
begin
    randomize;
 
    for i := 1 to m do begin
        for j := 1 to n do begin
            a[i,j] := random(10);
            write (a[i,j]:3)
        end;
        writeln
    end;
 
    writeln ('------------');
 
    for j := 1 to n do begin
        for i := 1 to m do begin
            s[j] := s[j] + a[i,j];
            sum := sum + a[i,j]
        end;
        write (s[j]:3)
    end;
FOR i:=1 TO N-1 DO
FOR J:=I+1 TO N DO
IF S[I]>S[J]
THEN BEGIN C:= S[I];
A[I]:=A[J];
S[J]:=C END;
FOR I:=1 TO N DO
WRITE(A[I]:3); 
readln
end.

Решение задачи: «Сортировка столбцов матрицы по невозрастанию»

Листинг программы

const m = 5;
      n = 4;
var a: array[1..m+1,1..n] of byte;
    i,j,k,sum,x: byte;
begin
randomize;
writeln('Исходная матрица');
for i := 1 to m do
 begin
  write('     ');
  for j := 1 to n do
   begin
     a[i,j] := random(10);
     write (a[i,j]:3)
   end;
  writeln
 end;
write('Сумма');
for j:=1 to n do
 begin
  a[m+1,j]:=0;
  for i:=1 to n do
  inc(a[m+1,j],a[i,j]);
  write(a[m+1,j]:3);
 end;
writeln;
for j:=1 to n-1 do
for k:=j+1 to n do
if a[m+1,j]<a[m+1,k] then
for i:=1 to m+1 do
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x;
 end;
writeln('Столбцы упорядочены по невозрастаию сумм');
for i := 1 to m do
 begin
  write('     ');
  for j := 1 to n do
  write (a[i,j]:3);
  writeln
 end;
write('Сумма');
for j:=1 to n do
write(a[m+1,j]:3);
end.

Объяснение кода листинга программы

В данном коде решается задача сортировки столбцов матрицы по невозрастанию суммы элементов. Список действий:

Задаются исходные данные: размеры матрицы m и n, инициализируются случайными значениями элементы матрицы a.
Выводится исходная матрица.
Вычисляются суммы элементов каждого столбца, записываются в столбец a[m+1,].
Выводится столбец a[m+1,].
Производится сортировка столбцов a[m+1,].
Выводится отсортированный столбец a[m+1,].
Выводится итоговая матрица.