>     readln(n);
>     if n=0 then break;
>     fillchar(d,sizeof(d),0);
>     repeat
>       read(k);
>       if k=0 then break;
>       while not(eoln) do
>       begin
>         read(k1);
>         d[k,k1]:=true;
>         d[k1,k]:=true;
>       end;
>       readln;
>     until false;
> 这样读数据会不会有问题？？？