program t;
type point=^node;
node=record
data:longint;
next:point;
end;
var p,head,r:point;
x:longint;
begin
read(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;
read(x);
end;
p:=head^.next;
while p^.next<>nil do
begin
writeln(p^.data);
p:=p^.next;
end;
write(p^.data);
end.
这是自己照着书上打的程序，但是到 r^.next:=p;就运行不了，求帮助。

为什么那一句是无效的内存引用？

new完head应该head^.next: =nil

而且最好把加入和读取链表的操作放在函数里，好判断是否读完

第一次要分开对待