Помогите исправить косяк в задаче на динамические переменные списки

[Taisja]

Списки
Составить программу, которая в списке L из каждой группы подряд идущих одинаковых элементов оставляет только один.

type sp=^zap;
zap=record
inf:integer;
next:sp end;
var nach,p2,p:sp; a:integer;
begin
new(p);
nach:=p;
writeln('Введи числа до 0');
readln(nach^.inf);
repeat
p2:=p;
new(p);
p2^.next:=p;
readln(a);
if a<>0 then p^.inf:=a else p2^.next:=nil;
p^.next:=nil;
until a=0;
p:=nach;
while p<>nil do
if p^.inf = p^.next^.inf then p^.next:=p^.next^.next
else p:=p^.next;
p:=nach;
while p<>nil do
begin
write(p^.inf,' ');
p:=p^.next;
end;
writeln;
readln;
end.

[Greblin]

У тебя вот в этой части ошибка

while p<>nil do 
  if p^.inf = p^.next^.inf then p^.next:=p^.next^.next
  else p:=p^.next;

Когда доходишь до последнего элемента списка, p^.next = nil, а ты пытаешься обратиться к p^.next^.inf и p^.next.next. Надо делать

while p^.next <> nil do

[Taisja]

Спасибо! Я просто уже запарилась. Цитата миленькая.