И еще одна...

Очередь задана структурой
type Person=......
Key:.....//ключ
Next:.....//адреса следующего элемента
............
var First, Pn: Person;
Очередь существует, количество элементов >=2.
Конечный элемент очереди имеет P^.next=nil,адреса(хвоста) входу очереди - First. Навести фрагмент программы, с помощью которого из очереди будет вытянуто дежурный элемент(последний при организации) и его адрес будет присвоен переменной Pn, выполнить необходимую переадресацию после исключения элемента.
Использовать исключительно описаны переменные.