第16题为什么无法输入第三个

var

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

b,c,x,k:array[1..100]of integer;

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

s:string;

ch:char;

n,i,j,g,max:integer;

begin

readln(n);

for i:=1 to n do

readln(a[i],ch,b[i],c[i],d[i],e[i],x[i]);

for i:=1 to n do

begin

if (b[i]>80)and(x[i]>=1) then k[i]:=k[i]+8000;

if (b[i]>85)and(c[i]>80) then k[i]:=k[i]+4000;

if b[i]>90 then k[i]:=k[i]+2000;

if (b[i]>85)and(e[i]='Y') then k[i]:=k[i]+1000;

if (c[i]>80)and(d[i]='Y') then k[i]:=k[i]+850;

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if k[i]>k[j] then

begin

s:=a[i];

a[i]:=a[j];

a[j]:=s;

g:=k[i];

k[i]:=k[j];

k[j]:=g;

end;

for i:=1 to n do

max:=max+k[i];

writeln(a[1]);

writeln(k[1]);

writeln(max);

end.

名字输入要一个一个输

name[i]:='';

while ch<>' ' do

begin

name[i]:=name[i]+ch;

read(ch);

end;

后面你是知道的

还有读入：readln(cj[i],py[i],ch,gb[i],ch,xb[i],lw[i]);

LS，你叫什么名字？还有，陆展真无聊

LS，你叫什么名字？还有，陆展真无聊

鸡你好啊！狮子都不知道了？？小心“宰”了你！hahaha！

狮子怎么过了那么多题目