лалочки

var
   n,m,i,j,k: Integer;
   a:array [1..100,1..100] of integer;
   sum:array [1..100] of integer;

procedure swap(var x,y:integer);
                var tmp:integer;
    begin
       tmp:=x;
       x:=y;
       y:=tmp;
    end;

begin
  read(n, m);

  for i:=1 to n Do
     for j:=1 to m do read( a[i, j]);

  for i:=1 to n do begin
    sum[i]:=0;
      for j:=1 to m do
         inc(sum[i], a[i,j]);
  end;

  for i:=1 to n-1 do
     for k:=i+1 to n do
     if sum[i]<sum[k] then
        swap(sum[i], sum[k]);
        for j:=1 to m do
          swap(a[i,j], a[k,j]);

  for i:=1 to n Do begin
     for j:=1 to m do write( a[i, j],' ');
     writeln;
  end;

end.