Набор строки и выход из неё в любой момент Опции

[4epenOK]

Здравствуйте!
У меня возникла проблемка, надеюсь на вашу помощь. Пишу я программу по вычислению среднего балла учеников. Нужно чтобы можно было выйти из программы в любой момент времени сразу после нажатия Esc. Проблема заключается в том, что при вводе имени ученика я не могу это реализовать. Пробовал сделать вводить-выводить посимвольно каждую букву, но появились какие-то глюки. Дело в том, что нужно ещё реализовать поддержку клавиш Del, Backspace, end, home. Имя ученика может состоять из любых символов.
Компилятор Turbo Pascal 7.0

[klem4]

Типа этого ?

procedure ReadWord;
var
  s: String;
  i: Byte;
  ch: Char;
begin
  s := '';
  i := 1;

  repeat
    ch := readkey;

    case ch of

      'A'..'Z', 'a'..'z': begin
        Insert(ch, s, i);
        inc(i);
      end;

      #8: Delete(s, Length(s), 1);

      #0: case readkey of
        #83: begin
          s := ''; i := 1;
        end;
        #71: i := 1;
        #79: i := Length(s) + 1;
      end;

    end;

    clrscr;
    writeln(s);
  until ch = #27;
end;