Pascal/Turbo Pascal - hacer un repeat hasta que presione esc.

Necsecito ayuda...
hice un programa que hace una secuencia el programa fuhnciona bien, pero,(pensandolo bien si funcionara nien no habria pero).... bueno bueno vamos por partes:

Mi programa es un gusanito que se mueve por la pantalla hasta llegar al centro osea de la columna 1 fila 1 hasta llegar al centro haciendo cuadros, bueno no importa eso, lo que quiero es que al apretar esc me saque del programa...

Lo que yo tengo es esto:

repeat
{aqui van mis instrucciones del gusano}
op:=readkey;
until op:=#27;

cual es el problema aqui: pues que hace la primera rutina del pepeat y enseguida espera a que teclees algo, cualquier cosa para saber si sale o no (logico si presiono esc se sale) y yo no quiero eso, quiero que el programa corra sin parar hasta que presiones esc y no que me pida la captura de op en cada vuelta.

Por su atencion gracias y espero me respondan.

Aguascalientes, Ags, México.

Deberías hacer algo así:
var fin:boolean;
fin:=false;
repeat
(*instrucciones del gusano*)
if keypressed then if readkey=#27 then fin:=true;
until fin;

Puedes poner tambien dos repeat

repeat
repeat {del gusano}
{instrucciones}
until (condiciones finales) {por ejemplo "x"=40 y "y" =12 etc}
op :=readkey;
until op =#27;