Как прервать выполнение процедуры?, Нужно прервать процедуру нажатием 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]

Можешь вставить вот такой цикл:

Var
arrow: char;


Repeat arrow:=readkey;
...
Until arrow=#27; {esc}

Ну, или просто по ифу на выход в начале текста процедуры...