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

[Klubnic]

Списки
Составить программу, которая в списке 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.

[min@y™]

а кусок паскаль-кода - эт чо?
https://yadi.sk/i/QpUAsh7Zba77q

[Klubnic]

Так называемая программа которую накалякал

[min@y™]

Так называемая программа которую накалякал

а задание-то где?
с указанием IDE.
и только не говори, что надо писать исключительно вот в этом:

[Klubnic]

Составить программу, которая в списке L из каждой группы подряд идущих одинаковых элементов оставляет только один - Это задание.
p.s Код писал именно на том что вы показали.
p.s.s Код хоть и компилируются, но при работе счет идет не верно.Т.е если ввожу 1122234 -> он должен выдать 1234 т.е из одинаковых элементов оставить один. Но этого не происходит.

[min@y™]

p.s Код писал именно на том что вы показали.

это есть обязательно?

[Klubnic]

Сообщение от min@y™

это есть обязательно?

Увы, но да.

[min@y™]

Увы, но да.

Какая ужасная ЖАЛЬ!

[Serge_Bliznykov]

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);
  nach^.next := nil;
  repeat
    readln(a);
    if a<>0 then begin
      p2 := p;
      new(p);
      p2^.next := p;
      p^.inf := a;
      p^.next := nil;
    end;
  until a = 0;

  p := nach;
  while (p <> nil) and (p^.next<>nil) do begin
    if p^.inf = p^.next^.inf then begin
       p2:=p^.next;
       p^.next := p^.next^.next;
       Dispose(p2)
    end
    else
      p := p^.next;
  end;
  
  p := nach;
  while p <> nil do
  begin
    write(p^.inf, ' ');
    p := p^.next;
  end;
  writeln;
  readln;
end.

[Klubnic]

Сообщение от Serge_Bliznykov

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);
  nach^.next := nil;
  repeat
    readln(a);
    if a<>0 then begin
      p2 := p;
      new(p);
      p2^.next := p;
      p^.inf := a;
      p^.next := nil;
    end;
  until a = 0;

  p := nach;
  while (p <> nil) and (p^.next<>nil) do begin
    if p^.inf = p^.next^.inf then begin
       p2:=p^.next;
       p^.next := p^.next^.next;
       Dispose(p2)
    end
    else
      p := p^.next;
  end;
  
  p := nach;
  while p <> nil do
  begin
    write(p^.inf, ' ');
    p := p^.next;
  end;
  writeln;
  readln;
end.

Не считает.
Ввожу
1122245
0
выдает
8133