Как прервать выполнение процедуры?, Нужно прервать процедуру нажатием Esc Опции

[Лёва]

Это процедура редактирования матрицы.
После запуска процедуры на экране появляется сообщение и возможность ввода данных
Мне необходимо сделать так чтобы выполнение процедуры завершалось при нажатии на Esc
т.е происходило как бы отслеживание нажатия на ESC в процессе выполнения процедуры.
чтобы можно было либо ввести данные либо нажать на ESC и завершить ввод.
Иными словами по сценарию После ввывода на на экран сообщения, пользователь сразу вводит данные
но нужно чтобы он мог нажать на ESC чтобы заверить процедуру, а дальше уже по тексту.

procedure Edit;
var i,j,ior,c:integer;
	y:char;

begin
 writeln(#13,#10,#10'Для редактирования введите адрес ячейки i/j формат ввода i<пробел>j');
	repeat
	{$I-}read(i,y,j);{$I+}
	ior:=IOResult;
	if ior<>0 then Write(#13,#10,#10'Необходимо ввести числовое значение, повторите ввод - ')
  until ior=0;
	 if (a[i,j]=1) then
	 a[i,j]:=0
	 else
	 a[i,j]:=1;
	end;

[Yevgeny]

Да, я вижу свою ошибку, volvo, но... если он уже начнёт делать ввод, то уже не сможет выйти нажатием ESC по твоему коду, или тебе это не надо Лёва???