谁会做这题啊，用pascal

var
name:array[1..100]of string;
m:array[1..100]of longint;
i,k,l,n,s1,s2:integer;
max,sum:longint;
ch1,ch2,ch:char;
begin
readln(n);
for i:=1 to n do
begin
name[i]:='';m[i]:=0;
repeat
read(ch);
if ch<>' ' then name[i]:=name[i]+ch;
until ch=' ';
read(s1,s2);
read(ch1,ch1,ch2,ch2);
readln(l);
if (s1>80)and(l>=1) then m[i]:=m[i]+8000;
if (s1>85)and(s2>80) then m[i]:=m[i]+4000;
if s1>90 then m[i]:=m[i]+2000;
if (s1>85)and(ch2='Y') then m[i]:=m[i]+1000;
if (s2>80)and(ch1='Y') then m[i]:=m[i]+850;
end;
sum:=0;max:=0;
for i:=1 to n do
begin
sum:=sum+m[i];
if max<m[i] then
begin
max:=m[i];k:=i;
end;
end;
writeln(name[k]);
writeln(max);