const n=4;

var
  a:array[1..n,1..n] of integer;
  i,j,k,swap,max,maxi,str:integer;

function sum(p:integer):integer;
  begin
    Result:=0;
    while p>0 do
      begin
        Result:=Result + (p mod 10);
        p:=p div 10
      end
  end;

begin
  for i:=1 to n do
    begin
      writeln(i, ' строка:');
      for j:=1 to n do readln(a[i][j])
    end;

  writeln('Введена матрица ', n,'x',n,' :');
  for i:=1 to n do
    begin
      for j:=1 to n do write(a[i][j], ' ');
      writeln()
    end;

    writeln();
    writeln('Вектор сумм цифр строк: ');
  for i:=1 to n do
    begin
      str:=0;
      for j:=1 to n do str:=str+sum(a[i][j]);
      write(str);
      writeln()
    end;

  for i:=n downto 2 do
    begin
      max:=0; maxi:=i;
      for j:=1 to n do max:=max+sum(a[i][j]);
      for k:=1 to i do
        begin
          str:=0;
          for j:=1 to n do str:=str+sum(a[k][j]);
          if max<=str
            then begin
              maxi:=k;
              max:=str
            end
        end;
      if maxi<>i
        then
          for j:=1 to n do
            begin
              swap:=a[maxi][j];
              a[maxi][j]:=a[i][j];
              a[i][j]:=swap
            end

     end;

  writeln();
  writeln('Конечная матрица ', n,'x',n,':');
  for i:=1 to n do
    begin
      for j:=1 to n do write(a[i][j], ' ');
      writeln()
    end;

  writeln();
  writeln('Вектор сумм цифр строк: ');
    for i:=1 to n do
    begin
      str:=0;
      for j:=1 to n do str:=str+sum(a[i][j]);
      write(str);
      writeln()
    end
end.