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;
помогите решить.