Pascal/Turbo Pascal - Precionar ESCAPE para salir de un MENU

holas a todos en un programita q estoy haciendo mas específicamente en la parte de altas a la hora de ingresar el código de un producto el procedimiento dice ingreso el código o presione CERO [0] para salir
quería saber como hacer para enves q que precione la tecla 0 se pueda hacer solo presionando la techa Esc. muchas gracias son unos capos

Supongo que el ingreso de dicho dato lo haces usando Read/ReadLn. Me temo que estos procedimientos no se pueden "interferir". Tendrás que escribir tu propia versión de esos procedimientos.

Hola Diego. Si te animas a modificar tu código puedes hacer algo como esto.
Espero que te sirva.
Saludos!

uses Crt;
var Tecla : Char;
Codigo : String;
begin
Writeln('Ingrese codigo. Para salir presione ESC');
Codigo := '';
Repeat

if KeyPressed then
begin
Tecla := ReadKey;
Codigo := Codigo + Tecla;
if Tecla = Char(13) then Writeln(Codigo); {Char(13) es ENTER}
end;

Until Tecla = Char(27); {Cahr(27) es ESC}

end.

MUCHAS GRACIAS PROBANDO