Список: Удаление всех подряд идущих одинаковых элементов из списка

type
   tlist = ^item;
   item = record
      value : integer;
      prev, next : tlist;
   end;

procedure removeduplicates(var head : tlist);
 
   function removeitem(var head : tlist; p : tlist) : tlist; // доп. функция для удаления одного элемента
   var t : tlist;
   begin
      t := p^.prev;
      if t <> nil then t^.next := p^.next
      else head := p^.next;
 
      t := p^.next;
      if t <> nil then t^.prev := p^.prev;
 
      result := t;
      dispose(p);
      p := nil
   end;
 
var
   p, t : tlist;
   b : boolean;
begin
   p := head;
   b := false;
   while (p <> nil)  do
      if (p^.next <> nil) and (p^.value = p^.next^.value) then
      begin
         b := true;
         removeitem(head, p^.next);
      end
      else
         if b then
         begin
            p := removeitem(head, p);
            b := false;
         end
         else p := p^.next;
end;