Удаление элемента списка

[igoldyrev]

Задача такая: Удалить из списка L первый отрицательный элемент, если такой имеется.

Вот есть процедура удаления звена из списка, как ее исправить чтобы она находила первый отрицательный элемент?

Procedure Iz_Spiska(Pred : U; Var X : BT);
       Var Vsp : U;
       Begin
            Vsp := Pred^.Next; {Забираем ссылку на удаляемое звено}
            {Удаляем звено из списка, перенаправив ссылку на следующее
             за ним звено}
            Pred^.Next := Pred^.Next^.Next;
            X := Vsp^.Inf; {Забираем информацию из удаляемого звена}
            Dispose(Vsp);  {Уничтожаем звено}
       End;

[Stilet]

Учитывая что ты привел малопонятный код, как-то так:

 While (Vsp.Next<>nil)and(Vsp.Inf>0) do Vsp:=Vsp.Next^;

[igoldyrev]

Ладно приведу более понятно

Procedure Iz_Spiska(Pred : U; Var X : BT);
       Var Vsp : U;
       Begin
            Vsp := Pred^.Next; 
            Pred^.Next := Pred^.Next^.Next;
            X := Vsp^.Inf; 
            Dispose(Vsp);  
       End;