Pascal/Turbo Pascal - AYUDA URGENTE

Saludos:
Necesito ayuda urgentemente, tengo que entregar un programa que es de exámen, ya lo tengo todo, lo único que me falta es lo siguiente:
Debe ser capaz de salir del programa (esto al final del mismo) presionando la tecla "Esc", en caso que se presione otra tecla, debe regresarse a la pantalla principal.
Espero que alguíen me pueda ayudar y se lo agredecería mucho.
mi correo es [email protected]

begin
Repeat
{todo lo que quieras aquí}
...
until Readkey = #27;
end.
Agrega la unidad CRT a la uses.

Dbes tener cuidado con el "ReadKey", porque si pulsas una tecla de función (F1, F2, etc.), te devolverá 2 códigos.

Haz lo siguiente:

Begin
Repeat
{Cuerpo Principal}
...
Key := Ord(ReadKey);
If (Key=0) then Key := Ord(ReadKey)*256;
Until (Key=27);
End.


Saludos ;-)