en mis tiempos de Turbo Pascal usaba un keypressed con un
While, lo que resultaba que al presionar una tecla o una determinada tecla (ESC) finalizaba la instrucción.
Alternativas sencillas: usar un readkey o un comando SHELL (pause) al final.
Cerra es un boleano entonces: