Usuwanie elementu z kolejki - Turbo Pascal

Usuwanie elementu z kolejki - Turbo Pascal

Hmm podsunie ktoś pomysł?
Jeśli wpisuje ten kod http://pastebin.com/065rGTJE to usuwa całą kolejkę...
A chciałbym, żeby usuwał się tylko ostatni element, a nie pierwszy jak w stosie.

Up http://pastebin.com/X7xrg2kK

up