Pascal, pomoc z jednym detalem w programie

[Jackal-pl 0]

Witam Was serdecznie.
Chodzi o przygotowaną przeze mnie grę Snake.
Kończy się termin oddania pierwszego programu na zaliczenie, a nadal jest kłopot z jedną rzeczą. Jako, że nie można wykorzystać halt(0), musiałem zastosować kilka logicznych zmiennych, które odpowiadają za powtórzenie gry i zakończenie gry (funkcję game over (przegrana właściwie) możecie sobie zobaczyć, jest za komentowana). Problem jest z taką rzeczą: Po wjechaniu w siebie lub koniec krańce cmd, to zamiast od razu wyskoczyć komunikat zza pętli while trzeba jeszcze wcisnąć klawisz, jest to najpewniej komenda z linii 225. Jednakże wsadzenie tam ifa, który blokowałby tą część kodu (tu: if koniecgry=false then) nie skutkuje.
Nie mam pojęcie co z tym faktem zrobić.
Kod w pastebin:
http://pastebin.com/EmfLVM9d