vijos 谁拿了最多的奖学金 样例可过零分

var na:array [0..100] of string;
ans,v1,v2,v5:array [0..100] of integer;
v3,v4:array [0..100] of char;
a:array [0..20] of char;
s,cou,i,n,k,j:integer;
t:char;
b:string;
begin
readln(n);
for i:=1 to n do
begin
k:=0;
repeat
inc(k);
read(a[k]);
until a[k]=' ';
for j:=1 to k-1 do na[i]:=na[i]+a[j];
read(v1[i],v2[i]);
read(t,v3[i],t,v4[i],t);
readln(v5[i]);
end;
cou:=1;
for i:=1 to n do
begin
if (v1[i]>80) and (v5[i]>0) then begin ans[i]:=ans[i]+8000; s:=s+8000; end;
if (v1[i]>85) and (v2[i]>80) then begin ans[i]:=ans[i]+4000; s:=s+4000; end;
if v1[i]>90 then begin ans[i]:=ans[i]+2000; s:=s+2000; end;
if (v1[i]>85) and (v4[i]='Y') then begin ans[i]:=ans[i]+1000; s:=s+1000; end;
if (v2[i]>80) and (v3[i]='Y') then begin ans[i]:=ans[i]+850; s:=s+850; end;
if ans[i]>ans[cou] then cou:=i;
end;
writeln(na[cou]);
writeln(ans[cou]);
writeln(s);
end.