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

const
  rows=3; columns=5;
  type
  matrix1 = array[1..rows,1..columns] of integer;
  arr1 = array[1..rows] of integer;
  var
  matrix:matrix1;
  arr:arr1;
 i,j,k:integer;
   s:integer;
 
  {Создание двумерного массива}
  procedure init(var matrix:matrix1);
  var i,j:integer;
   begin
   for i:=1 to rows do
      for j:=1 to columns do
          matrix[i,j]:=-20+random(33);
   end;
 
  {печать двумерного массива}
  procedure print(matrix:matrix1);
  var i,j:integer;
   begin
   for i:=1 to rows do
    begin
       for j:=1 to columns do
          write(matrix[i,j]:5);
       writeln;
    end;
  end;
 
  {создание одномерного массива}
  procedure init1(var arr:arr1);
  var i,j:integer;
   begin
    for i:=1 to rows do
     begin
      s:=0;
       for j:=1 to columns do
      s:=s+matrix[i,j];
      Writeln(s:2);
       end;
  end;
 
  {Печать одномерного массива}
  procedure print1(arr:arr1);
  var i:integer;
  begin
   for i:=1 to rows do
    begin
     init1(arr);
     Writeln;
    end;
 
  end;
 
  procedure swap(var a, b: integer);
     var
      buf : integer;
       begin
        buf := a;
        a := b;
        b := buf;
       end;
 
  begin
  randomize;
   Writeln('Pechat ishodnoi matrizi');
    init(matrix);
    print(matrix);
  for i := 1 to rows - 1 do
        for k := i + 1 to rows do
            if (arr[i] > arr[k]) then
            begin
                for j := 1 to columns do
                begin
                    swap(matrix[i, j], matrix[k, j]);
                    swap(arr[i], arr[k]);
                end;
            end;
    writeln('*************************');
    for i := 1 to rows do
    begin
        for j := 1 to columns do
            write(matrix[i, j] : 5);
        writeln('  | ', arr[i]);
    end;
  ReadLn;
end.

const rows=3; columns=5;
type  matrix1 = array[1..rows,1..columns+1] of integer;//1 столбец для суммы
procedure init(var matrix:matrix1);
var i,j:integer;
begin
for i:=1 to rows do
 begin
  matrix[i,columns+1]:=0;
  for j:=1 to columns do
   begin
    matrix[i,j]:=-20+random(33);
    inc(matrix[i,columns+1],matrix[i,j]);
   end;
 end;
end;
procedure print(matrix:matrix1;s:string);
var i,j:integer;
begin
writeln(s);
writeln('Сумма':columns*5+6);
for i:=1 to rows do
 begin
  for j:=1 to columns do
  write(matrix[i,j]:5);
  writeln(matrix[i,columns+1]:5);
 end;
end;
procedure swap(var a, b: integer);
var buf : integer;
begin
buf := a;
a := b;
b := buf;
end;
procedure sort(var matrix:matrix1);
var i,j,k:integer;
begin
for i:=1 to rows-1 do
for j:=i+1 to rows do
if matrix[i,columns+1]<=matrix[j,columns+1] then
for k:=1 to columns+1 do swap(matrix[i,k],matrix[j,k]);
end;
var matrix:matrix1;
    i,j,k:integer;
begin
randomize;
init(matrix);
print(matrix,'Исходная матрица');
sort(matrix);
print(matrix,'Строки упорядочены по не возрастанию сумм');
ReadLn
end.