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

type
  List = ^Zveno;
  //тип список
  Zveno = Record
    next: List;//указатель на следующий элемент
    info: integer;//поле данных
  End;
 
var
  p, l, q1, temp: List;
  m, n, i, k : integer;
 
begin
  repeat
    write('Количество элементов: ');
    readln(n);
  until (n > 0);
  writeln('Введите ', n, ' элементов');
  for i := 1 to n do
  begin
    read(m);//вводим число
    //если список пустой,то
    if l = nil then
    begin
      //создаём голову списка
      new(l);
      p := l;
      //указатель на следующий элемент ставим nil (т.е. никуда не указывает)
      p^.Next := nil;
      //и заносим данные
      l^.info := m;
    end
    else
    begin
      //выделяем указатель на следующий элемент
      new(p^.Next);
      //устанавливаем указатель p на только что созданный элемент списка
      p := p^.Next;
      //заносим данные в новое звено списка
      P^.Info := m;
      //указатель на следующий элемент = Nil
      p^.Next := nil;
    end;
  end;
  p := l;//в p заносим голову списка,чтобы начать просмотр списка сначала
  temp := p;
  //пока не конец списка делаем
  while p^.next <> nil do
  begin
    k := 0;
    //если очередной звено списка имеет элемент равный нулю то
    if (p^.Info = p^.next^.info) then
    begin
      //если это начало списка,то
      if (p = l) then
      begin
        //смещаем указатель начала списка на 1 позицию вправо
        l := p^.next;
        q1 := p;
        //переходим к следующему элементу списка
        p := p^.next;
        //удаляем элемент списка
        Dispose(q1)
      end
      else
      begin
        q1 := p;//запоминаем указатель на удаляемый элемент
        //в temp хранится предыдущей элемент списка
        //т.е. элемент находящийся до элемента p
        //и указатель на следующий элемент в temp ставим на следующий элемент в p
        //т.е. теперь temp^.next ссылается на p^.next (на следующий элемент за удаляемым)
        temp^.next := p^.next;
        p := temp;//восстанавливаем список
        Dispose(q1);//уничтожаем элемент
      end;
      k := 1;
    end;
    //если k=0 значит нужно перейти к следующему элементу списка
    if k = 0 then 
    begin
      temp := p;//в temp запоминаем предыдущий элемент списка
      p := p^.next;//переходим к следующему элементу
    end;
  end;
  p := l;
  while p <> nil do
  begin
    write(p^.Info, ' ');
    q1 := p;
    p := p^.Next;
    Dispose(q1);
  end;
  readln;
end.