第一次调试，读名字的时候

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

s:char;

（用na数组存名字）

……

for i:=1 to n do

begin

read(s)；

while s' ' do

begin

inc(j);

na[i][j]:=s;

read(s);

end;

……

但是名字没有输出……

调试，na数组为空，没有赋上值……

请大牛指导……