однонаправленый список, удалить отрицательные элементы Опции

[sheka]

процедура должна удалять отрицательные элементы списка после PP

 procedure DelNegative(var PP:TPtr);
Var P:TPtr;
begin
    while (PP^.Link<>nil)do
    begin
    New(P);
    P:=PP^.Link;
    if P^.Inf<0 then
      begin
      PP^.Link:=P^.Link;
      Dispose(P);
      DelNegative(PP);
      end
    else
      begin
      PP:=P;
      Dispose(P); // <== вот здесь пишет invalid pointer operation
      DelNegative(PP);
      end;
    end;
end;

помогите решить.

[volvo]

я уверен что сделал правильно с рекурсией

Если б ты сделал правильно - получил бы правильный результат. Я в этом тоже уверен. Вот нерекурсивный вариант:

procedure neg(var pp: TPtr);
var first, p: tptr;
begin
  first := pp;
  if first <> nil then
    while first^.link <> nil do begin
      if first^.link^.inf < 0 then begin
        p := first^.link;
        first^.link := p^.link;
        dispose(p);
      end
      else first := first^.link;
    end;

  if (pp <> nil) and (pp^.inf < 0) then begin
    first := pp;
    pp := pp^.link;
    dispose(first);
  end;
end;

, смотри внимательно, что и где ты НЕ сделал...