你的v和head没new过啊，就不能^.next:=....了
好像要改成readln......大概是fp的问题，我也搞不懂了
还有p和v没和主要指针u建立联系，就算读入成功，输出也不行的
type pn=^num;
     num=record
     numstring:string;
     next:pn;
     end;
var u,head:pn;

procedure readnums;
var p:pn;
    k,n:integer;
    number:string;
     begin
        readln(n);
        u:=head;

        for k:=1 to n do
           begin
             new(p);
             readln(p^.numstring);
             p^.next:=nil;
             u^.next:=p;
             u:=p;
           end;
    end;
begin
   readnums;
   u:=head;
   while u^.next<>nil do
      begin
        writeln(u^.next^.numstring);
        u:=u^.next;
      end;
end.

忘说了，p之为读入提供，可以说没意义

谢了，天行

我发现我的程序的read改成readln就行了~这是为什么啊？？？？？？