DenKaz_1

Var
    A: Array [1..100, 1..100] Of Integer;
    S: Array [1..100, 1..2] Of Integer;
    B: Array [1..100] Of Integer;
    C: Array [1..100, 1..100] Of Integer;
    N, I, J: Integer;

Procedure SortArr;
Var
    T, TT: Integer;
Begin
    {Расчет массива сумм}
    For I:= 1 To N Do Begin
      For J:= 1 To N Do
        S[I, 1]:= S[I, 1] + A[I, J];
      S[I, 2]:= I;
    End;
    {Сортировка массива сумм}
    For J:= 1 To N - 1 Do
      For I:= 1 To N - J Do
        If S[I, 1] > S[I + 1, 1] Then Begin
          T:= S[I, 1]; TT:= S[I, 2];
          S[I, 1]:= S[I + 1, 1]; S[I, 2]:= S[I + 1, 2];
          S[I + 1, 1]:= T; S[I + 1, 2]:= TT;
        End;
    {Сортировка матрицы}
    For I:= 1 To N Do Begin
      For J:= 1 To N Do Begin
        C[I, J]:= A[S[I, 2], J];
      End;
    End;
    WriteLn('Результирующая матрица:');
    For J:= 1 To N Do Begin
      For I:= 1 To N Do Write(C[I, J], ' ');
      WriteLn;
    End;
End;

Begin
    Repeat
      Write('Input N [2..100]: ');
      ReadLn(N);
    Until (N >= 2) And (N <= 100);
    Randomize;
    WriteLn('Исходная матрица:');
    For J:= 1 To N Do Begin
      For I:= 1 To N Do Begin
        A[I, J]:= Integer(Random(10));
        Write(A[I, J], ' ');
      End;
      WriteLn;
    End;
    SortArr;
    ReadLn;
End.