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

type
    TLine = Array[Byte] Of Integer;
    TArray = Array[Byte] Of TLine;
 
procedure ReadLine(var t: Text; var line: TLine; const m: Byte);
var
    j: Byte;
begin
    ReadLn(t);
    for j := 0 to m - 1 do
        Read(t, line[j]);
end;
 
procedure ReadFromFile(var f: Text; var ar: TArray; var n, m: Byte);
var
    i: Byte;
begin
    Reset(f);
    Read(f, n); Read(f, m);
    for i := 0 to n - 1 do
        ReadLine(f, ar[i], m);
    Close(f);
end;
 
function GetLineSum(const line: TLine; const m: Byte): LongInt;
var
    j: Byte;
    Result: LongInt; //закомментировать если что
begin
    Result := 0;
    for j := 0 to m - 1 do
        Inc(Result, line[j]);
    GetLineSum := Result;
end;
 
procedure SwapLines(var x, y: TLine);
var
    z: TLine;
begin
    z := x;
    x := y;
    y := z;
end;
 
procedure SortArray(var ar: TArray; const n, m: Byte);
var
    i, j: Byte;
begin
    for i := n - 2 downto 0 do
        for j := 0 to i do
            if (GetLineSum(ar[i], m) > GetLineSum(ar[i + 1], m))
            then
                SwapLines(ar[i], ar[i + 1]);
end;
 
procedure WriteLine(var t: Text; const line: TLine; const m: Byte); overload;
var
    j: Byte;
begin
    WriteLn(t);
    for j := 0 to m - 2 do
        Write(t, line[j], ' ');
    Write(t, line[m - 1]);
end;
 
procedure WriteToFile(var g: Text; const ar: TArray; const n, m: Byte);
var
    i: Byte;
begin
    ReWrite(g);
    Write(g, n, ' ', m);
    for i := 0 to n - 1 do
        WriteLine(g, ar[i], m);
    Close(g);
end;
 
var
    f, g: Text;
    mass: TArray;
    n, m: Byte;
begin
    Assign(f, 'Input.txt'); Assign(g, 'Output.txt');
    ReadFromFile(f, mass, n, m);
    SortArray(mass, n, m);
    WriteToFile(g, mass, n, m);
end.