Закрытие окна в текстовом режиме

[olegozavr]

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

Создаю базу данных. Из процедуры меню вызываю процедуры создания, просмотра итд, но каждая дочерняя процедура должна открываться в отдельном окне(window(x1,y1,x2,y2)). Окно открываю, процедура выполняется... а как потом опять вернуться в меню?
Я возвращаюсь рекурсивным вызовом процедуры меню. Но тогда по ESC выходит не с 1го раза, а пока не закроются все запущенные циклы.
Как еще это можно реализовать?(readkey обязателен)
Код меню:

      procedure dismenu;
      uses crt;
      var
      c:char;
      begin
      repeat
      c:=readkey;
      case c of
        #49:begin
              sozdanie(f1);
              dismenu;
             end;
        #50:begin
               udalenie(f1);
                dismenu;
              end;
        #51:begin
               prosmotr(f1);
               dismenu;
            end;
      end;
    until c=#27;
   end;