Object Pascal

Никак сделать не могу..вот:

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