Цитата
Предположим, что надо удалить элемент, расположенный после элемента, на который указывает ссылка q.
{удаление элемента из середины списка после q^}
Procedure Del (Var q: point);
Var r: point;
Begin
r:=q^.Next;
q^.Next:=q^.Next;
r^.Next:=nil
End;
Как это работает?! :o