Завершение работы программы нажатием ESC

[whatever]

Доброго времени суток.

В общем пытаюсь заставить закрываться программу нажатием кнопки, и, так как приложение консольное, начал писать альтернативный readln:

Procedure ReadLn2(var ans:integer);
var
  sans:string;
  ch:char;
begin
//  ans:=0;
  sans:='';
  ch:=' ';//своего рода обнуление
  repeat
    if (ch=#8)and(length(sans)>0) then
      begin
        delete(sans,length(sans),1);
        gotoxy(wherex-1,wherey);
        write(' ');
        gotoxy(wherex-1,wherey);
      end;
      
    ch:=readkey;
    if ch in ['0'..'9'] then
      sans:=sans+ch; 
      
    if {(ch<>#27)and(ch<>#13)} ch in ['0'..'9'] then
      write(ch);
      
      
  until ((ch=#13) and (length(sans)>0))or(ch=#27);
  
  
  if ch=#27 then
    ans:=-9999 // При данной постановке задачи такой ответ получиться не может.
  else  
    if length(sans)>0 then  
      ans:=strtoint(sans);

 
  writeln;
  writeln(ans);

end;

Поясню, как это работает. При вводе мне нужны только цифры 0..9.
Если жмем ентер - число введено до конца, сохраняем в переменную. Ничего не введено - ничего не происходит.
Ескейп - присваиваем вводимому числу значение -9999, что в последующем приведет меня к закрытию программы.

Backspace (#8) - самое интересное. Если длина строки равна нулю (ничего не введено), то ничего не делает. В противном случае удаляет из строки последний символ и затирает символ в самой консоли, при помощи GoToXY (прошу не бросаться камнями, это не GoTo).

Так вот, все отлично работет, пока полоса прокрутки стоит на месте. Потом имеем следующее: жмем backspace, коретка уползает вправо при каждом нажатии, через несколько шагов (как оказалось - равному количеству цифр) останавливается. Причем вводимая строка редактируется нормально, но в консоли отображается совсем не так, как надо.

В чем может быть ошибка?

Да, среда - pascalABC.net

Тело программы (фрагмент, крутищийся в цикле):

          write(intX,'-',intY,'=');
          readln2(intANS);
          if intANS=-9999 then
            begin
              ch:=#27;
              break;
            end;

Update: попробовал во Free Pascal, все работает без проблем...