这个程序中，p2的作用是什么？
type
pt=^node;
node=record
data:integer;
next:pt;
end;
var
h,p1,p2:pt;
x:integer;
begin
h:=nil;
read(x);
while x>0 do begin
if h=nil then begin
new(p1);
p1^.data:=x;
p1^.next:=nil;
p2:=p1;
h:=p1;
end
else begin
new(p1);
p1^.data:=x;
p2^.next:=p1;
p2:=p1;
end;
read(x);
end;
p1:=h;
while p1<>nil do begin
write(p1^.data:5);
p1:=p1^.next;
end;
writeln;
end.

指向p1前一个指针
自己看程序啊！