Двусвязный список, опять удаление... Опции

[Rocket]

В программе приведены различные операции с двусвязным списком.
Настораживают два пункта: добавление(добавляет всё время за первым добавленным) и удаление(удаляет всё время элементы по порядку после первого). Явно косяки... Прошу посмотреть.

[мисс_граффити]

а теперь минутку подумай, что ты так делаешь:
1. пока не нашли нужное значение и не дошли до конца списка...
2. переходим на следующий элемент
3. запоминаем еще следующий и его удаляем

вот и представь, сколько элементов удалится...

в цикле должен быть только переход на следующий элемент.
а вот дальше, если мы нашли, что собираемся удалять (как в односвязных - у тебя ж была логическая переменная), то удаляем...
кстати, не забудь, что перекидывать надо не 1, а 2 указателя.

[Rocket]

а теперь минутку подумай, что ты так делаешь:
1. пока не нашли нужное значение и не дошли до конца списка...
2. переходим на следующий элемент
3. запоминаем еще следующий и его удаляем

вот и представь, сколько элементов удалится...

в цикле должен быть только переход на следующий элемент.
а вот дальше, если мы нашли, что собираемся удалять (как в односвязных - у тебя ж была логическая переменная), то удаляем...
кстати, не забудь, что перекидывать надо не 1, а 2 указателя.

Вот работающий вариант:

procedure ToDelete(var walk:list; x:integer);
 var
  temp,extra:list;
   found:boolean;
   begin
    found:=false;
    
    if walk=nil then
     begin
      writeln('Cnucok nycT');
      readln;
     end;
     
   if (walk^.right=nil) and (walk^.left=nil) then
    if walk^.info=x then
     begin
      dispose(walk);
      walk:=nil;
     end
    else halt;
    
   if walk<>nil then
    if walk^.info=x then
     begin
     found:=true;
     temp:=walk;
     walk:=walk^.right;
     dispose(temp)
    end
    else
    begin
    
   temp:=walk;
   
    while not found and (temp^.right<>nil) do
      if temp^.right^.info=x then found:=true
      else temp:=temp^.right;
      if found then
      begin
      extra:=temp^.right;
      temp^.right:=extra^.right;
      dispose(extra);
    end;
   end;
   end;

Ещё раз спасибо!
Зы Но всё-таки, почему новый элемент всё время добавляется после первого?