Помогите со списками Object Pascal Никак сделать не могу..вот: Задан линейный динамический список, в котором адрес следующего элемента расположен в поле Next. type Person=...... Key:.....//ключ Next:.....//адреса следующего элемента ............ var P, Pn: Person; Процесс продвижения по списку остановился на элементе с адресом P. После этого элемента необходимо вставить новый элемент с адресом Pn (элемент уже инициализован), навести оператор для выполнения соответствующей переадресации, чтобы не нарушить звязнисть список. Использовать исключительно описаны переменные.
procedure Insert(p: Person; newPerson: Person); begin newPerson.Next = p.Next; p.Next = newPerson; end;