4

YaoLin 87 82 Y N 0

ChenRuiyi 88 78 N Y 1

LiXin 92 88 N N 0

ZhangQin 83 87 Y N 1

对于读入数据，这题我是这样写的

var a:array[1..100] of string;

b,c,d,g,h:array[1..100] of longint;

e,f:array[1..100] of char;

n,k,s,i,j:longint;

begin

readln(n);

for i:=1 to n do begin

read(a[i]);read(b[i]);read(c[i]);

read(e[i]);read(f[i]);read(d[i]);

readln;

end;

为什么当调试时，读入第三行就跳了？高手，请教小弟一下吧！！万分感谢！THANKS！！