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

[4epenOK]

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

[volvo]

Тогда вот так (не стал привязывать функцию к твоему интерфейсу, нехорошо это; функция должна вводить строку, интерфейс здесь ни при чем - не надо перемешивать его с логикой программы):

uses crt;

function get_str(start, max_len: byte): string;

  function my_delete(var s: string; p: integer): boolean;
  begin
    delete(s, p, 1);
    s := s + ' ';
    my_delete := true;
  end;

var
  s: string;
  ch: char;
  p: integer;
  clear: boolean;
begin
  s := ''; p := 0;
  clear := false;
  repeat
    gotoxy(start + p, wherey);

    ch := readkey;
    if length(s) <= max_len then
      case ch of
        #0:
          case readkey of
            #75: { left }
              if p > 0 then dec(p);

            #77: { right }
              if p < length(s) then inc(p);

            #71: { home }
              p := 0;

            #79: { end }
              p := length(s);

            #83: { delete }
              begin

                if (p >= 0) and (p < length(s)) then begin
                  clear := my_delete(s, p + 1);
                end;

              end;
          end; { case }

         #27:
           begin
             get_str := '';
             exit;
           end;

         #8: { backspace }
           begin
             if p > 0 then begin

               clear := my_delete(s, p);
               dec(p);

             end;
           end

        else begin { any char }

          if length(s) <> max_len then begin

            if p < length(s) then insert(ch, s, p + 1)
            else s := s + ch;
            inc(p);

          end;

        end;
      end; { case }

    gotoxy(start, wherey);
    write(s);

    if clear then begin
      delete(s, length(s), 1);
      clear := false;
    end;

  until ch = #13;
  get_str := s
end;

{
  Это пример вызова:
  первый параметр - позиция по X, с которой начинать ввод строки;
  второй - макс. возможная ее длина

  Начальная позиция по Y не задается, для этого ПЕРЕД вызовом get_str
  надо перейти с помощью GotoXY в нужную строку...
}
var s: string;
begin
  s := get_str(10, 25);

  writeln('s = ', s);
end.

Тестируй как следует - глюки могут проявиться, ибо я проверял под 32-битным компилером, хотя и в режиме совместимости с TP...