中间5-7组的测试老是过不了~

谢谢大家了~

program jiangxuejing;

type arr=record

ch:integer;

num:integer;

sum:integer;

end;

var

a,t:array[1..30000] of arr;

math,eng,i,j,n:integer;

begin

readln(n);

for i:=1 to n do begin

readln(a[i].ch,math,eng);

a[i].sum:=a[i].ch+math+eng;

a[i].num:=i;

end;

for i:=1 to n-1 do

for j:=n downto i+1 do begin

if a[j-1].sum