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

program TL;
const
    rows = 6;
    columns = 5;
var
    matrix : array[1..rows, 1..columns] of integer;
    arr : array[1..rows] of integer;
    i, j, k: integer;
    procedure swap(var a, b: integer);
    var
        buf : integer;
    begin
        buf := a;
        a := b;
        b := buf;
    end;
begin
    randomize;
    for i := 1 to rows do
    begin
        arr[i] := 0;
        for j := 1 to columns do
        begin
            matrix[i, j] := random(10);
            write(matrix[i, j] : 5);
            inc(arr[i], matrix[i, j]);
        end;
        writeln;
    end;
    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;
end.