Помогите со списками
 

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;

Algol, спасибо уважаемый.