题目如下：输入若干个整数，请按顺序建立一个单向链表并输出它，输入-1时表示结束。
程序如下：
program exl(input,output);
type pointer=^nodetype;
nodetype=record
data :integer;
next :pointer;
end;
var
head,p,r:pointer;
x:integer;
begin
readln(x);
New(head);
head:=nil;
r:=head;
while x<>-1 do
begin
new(p);
p^.data:=x;
p^.next:=nil;
r^.next:=p;
r:=p;
readln(x);
end;
r^.next:=nil;
writeln('output: ');
p:=head^.next;
while p<>nil do
begin
writeln(p^.data:4);
p:=p^.next;
end;
readln;
readln;
end.
可是运行不起来……大神们帮忙orz……

木有人吗？

楼主，链表的程序调试起来可是要花一点时间的。

program exl(input,output);
type pointer=^nodetype;
nodetype=record
data :integer;
next :pointer;
end;
var
head,p,r:pointer;
x:integer;
begin
readln(x);
New(head);
head:=nil;//问题在这一行，head是一个空的指针
r:=head; //r也是一个空的指针
while x<>-1 do
begin
new(p);
p^.data:=x;
p^.next:=nil;
r^.next:=p;//r(就是head)是空的，它的next域没有定义，不能赋值。
r:=p;
readln(x);
end;
r^.next:=nil;
writeln('output: ');
p:=head^.next;
while p<>nil do
begin
writeln(p^.data:4);
p:=p^.next;
end;
readln;
readln;
end.