不知道怎么的，测试数据是过的，交了就是0，写了好几次崩溃了......

大大们帮帮小弟吧..

编译通过...

├ 测试数据 01：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 02：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 03：答案错误...程序输出比正确答案长

├ 测试数据 04：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 06：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 07：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 08：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 09：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 10：答案错误...　├ 标准行输出

　├ 错误行输出

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：0 有效耗时：0ms

program p1001;

var

s:array[1..101] of string;

nm:array[1..101] of string;

fm:array[1..101] of integer;

cm:array[1..101] of integer;

gb:array[1..101] of char;

xb:array[1..101] of char;

lw:array[1..101] of integer;

mon:array[1..101] of longint;

num,i,nmm,p:integer;

max,t,tot:longint;

begin

readLn(num);

for i:=1 to num do readLn(s[i]);

for i:=1 to num do begin

p:=pos(' ',s[i]);

nm[i]:=copy(s[i],1,p-1);

fm[i]:=(ord(s[i][p+1])-48)*10+ord(s[i][p+2])-48;

cm[i]:=(ord(s[i][p+4])-48)*10+ord(s[i][p+5])-48;

gb[i]:=s[i][p+7];

xb[i]:=s[i][p+9];

lw[i]:=ord(s[i][p+11])-48;

end;

fillchar(mon,sizeof(mon),0);

for i:=1 to num do begin

if (fm[i]>80) and (lw[i]>=1) then

mon[i]:=mon[i]+8000;

if (fm[i]>85) and (cm[i]>80) then

mon[i]:=mon[i]+4000;

if fm[i]>90 then mon[i]:=mon[i]+2000;

if (fm[i]>85) and (xb[i]='Y') then

mon[i]:=mon[i]+1000;

if (cm[i]>80) and (gb[i]='Y') then

mon[i]:=mon[i]+850;

end;

max:=0;

for i:=1 to num do begin

if max