Pascal/Turbo Pascal - juego en pascal

El juego consta de 6 puertas que, por el azar vas subiendo de nivel,moris o permaneces,tambien podes bajar de nivel, el problema es que en la primer pasada, se modifica las variables pero no muestra lo que debe mostrar.
resumen nivel 5: el juego anda, pero la primera pasada no muestra nada. y si las otras

nombre del archivo:ASFKSJAF

• Juego-Pascal.rar(31,0 KB)

Disculpa e mirado tu programa pero necesito me espliques que quieres que haga el juego.
Y si tiene que ser como lo tienes o lo intento mejorar.
Si no mirare que funcione solo.