Pascal的问题

看下这段程序哪里有问题，谢了
program jiangxuejin;
type
inf=record
qimo:integer;
banji:integer;
ganbu:(Y,N);
xibu:(Y,N);
lunwen:integer;
end;
stu=array [1..100] of inf;
var i:integer;
sum:array [0..100] of longint;
n:integer;
begin
read (n);
for i:=1 to n do
read (stu[n].qimo,stu[n].banji,stu[n].ganbu,stu[n].xibu,stu[n].lunwen);
sum=0;
for 1:=1 to n do
begin
if stu[n].qimo>80 and stu[n].lunwen>=1 then
sum[n] =8000;
if stu[n].qimo>85 and stu[n].banji>80 then
sum[n]:=sum[n]+4000;
if stu[n].qimo>90 then
sum[n]:=sum[n]+2000;
if stu[n].xibu=Y and stu[n].qimo>85 then
sum[n]:=sum[n]+1000;
stu[n].ganbu=Y and stu[n].banji>80 then
sum[n]:=sum[n]+850;
end;
for i:=1 to n do
wrilteln (sum[n]);
end.

pascal语言程序设计的问题 一些pascal的问题 两个pascal的问题 关于PASCAL的问题 PASCAL的图形问题 PASCAL的问题 pascal的问题，急！！ pascal 的问题！！！ pascal的问题~急 turbo pascal的问题