大牛们,NOIP2005第一题,我知道很简单,可究竟哪错了?

大牛们,NOIP2005第一题,我知道很简单,可究竟哪错了?
var
n,i:integer;
ch,monitor,west:char;
na,k:string;
max,total,s,paper,score1,score2:integer;
begin
read(n);
for i:=1 to n do
begin
s:=0;
na:='';
read(ch);
while(ch' ') do
begin
na:=na+ch;
read(ch);
end;
read(score1);
read(score2);
read(ch);
read(monitor);
read(ch);
read(west);
readln(paper);
if (score1>80)and(paper>=1)then s:=s+8000;
if (score1>85)and(score2>80)then s:=s+4000;
if (score1>90)then s:=s+2000;
if (score1>85)and(west='Y')then s:=s+1000;
if (score2>80)and(monitor='Y')then s:=s+850;
if s>max then begin
max:=s;
k:=na;
end;
total:=total+s;
end;
writeln(k);
writeln(max);
writeln(total);
end.