var
  a,b:array[1..6,1..1000] of integer;
  n,i,j,k,l,m:integer;
begin
  read(n);
  for j:=1 to n do
    begin
      for i:=1 to 3 do
        read(a[i,j]);
      readln;
    end;
  for j:=1 to n do
    begin
      for i:=1 to 3 do
        a[4,j]:=a[4,j]+a[i,j];
      a[5,j]:=round(a[4,j]/3);
    end;
  b:=a;
  for j:=1 to (n-1) do
    for l:=(j+1) to n do
      if b[4,j]<b[4,l] then
        begin
          k:=b[4,j];
          b[4,j]:=b[4,l];
          b[4,l]:=k;
        end;
  for i:=1 to n do
    for j:=1 to n do
    if a[i,4]=b[j,4] then a[i,6]:=j;
  for j:=1 to n do
    begin
      for i:=1 to 6 do
      write(a[i,j]:3);
      writeln;
    end;
end.
大部分是正确的，但调试的时候出现了一点小错误，因此发出来让大家一起帮忙找一下。