没看你的，不过这是我写的

type ch=record

a:string;

b:integer;

end;

var s:string;

o,i,j,l,n,i1,j1,k:integer;

y:ch;

a:array[1..6] of string;

b:array[1..3] of integer;

x:longint;

begin

assign(input,'scholar.in');reset(input);

assign(output,'scholar.out');rewrite(output);

readln(n);

o:=0;

y.b:=0;

repeat

j1:=0;

inc(o);

fillchar(a,sizeof(a),0);

readln(s);

l:=length(s);

for i:=1 to l do

if (s=' ')or(i=1) then

for j:=i to l do

if (s[j+1]=' ')or(j=l)

then begin

inc(j1);

for i1:=i to j do

a[j1]:=a[j1]+s[i1];

break;

end;

val(a[2],b[1],j);

val(a[3],b[2],j);

val(a[6],b[3],j);

k:=0;

if (b[1]>80)and(b[3]>0) then inc(k,8000);

if (b[1]>85)and(b[2]>80) then inc(k,4000);

if (b[1]>90) then inc(k,2000);

if (b[1]>85)and(a[5]='Y') then inc(k,1000);

if (b[2]>80)and(a[4]='Y') then inc(k,850);

inc(x,k);

if k>y.b then begin

y.b:=k;

y.a:=a[1];

end;

until o=n;

writeln(y.a);

writeln(y.b);

writeln(x);

close(input);close(output);

end.