Работа с файлами в Паскале. Опции

[Анисия]

Создаю типизированный файл, в процедуре Inputfile, при вводе данных в файл происходит зацикливание почему не могу разобраться, помогите пожалуйста.

Program Tamazov;
uses Crt,Dos;
  type detsad=record
           Sname_rebenka, Name_rebenka:string[15];
           pol:string[5];
           FIO_mama:string[30];
           FIO_papa:string[30];
           telephon:integer;
           group:string[10];
           data_rogdenia:string[30];
           adres:string[20];
  end;
   var      f:file of detsad;
       zn, filename:string;
                 k:integer;
   kolnime:integer;
   ch:char;
  label 11;

procedure Creatfile;    {Создание файла}
    begin

  {writeln('Задайте имя файла, который будет создаваться');    }
  { filename:='c:\bp\bin\';   }
      { readln(filename); }
       assign(f, 'c:\bp\bin\deti.dat');
       {$I-}
       reset(f);
       {$I+}
       if IOResult<>0 then
       rewrite(f);
       end;

 procedure Inputfile;
    var  ch:char; st:detsad;
      begin
      kolnime:=0;
   
      repeat
        writeln('Введите данные о новом клиенте : ');
         write('Фамилия ребенка: ');                readln(st.Sname_rebenka);
         write('Имя ребенка: ');                    readln(st.Name_rebenka);
         write('Группа: ');                         readln(st.group);
         write('Пол: ');                            readln(st.pol);
         write('ФИО матери: ');                     readln(st.FIO_mama);
         write('ФИО отца: ');                       readln(st.FIO_papa);
         write('Телефон: ');                        readln(st.telephon);
         write('Дата рождение: ');                  readln(st.data_rogdenia);
         write('адрес: ');                          readln(st.adres);

         write(f,st);
         write('Надо ли вводить данные о новом клиенте? (Д/Н)');
         readln(ch);
      
      until (ch='н') or (ch='Н'); 
     close(f); 
  end;
 Begin  11:clrscr;
        writeln('МЕНЮ:':45);
        writeln('*************************':55);
        writeln('1:Создание файла':50);
                     readln(k);
         While ch<>#27 Do Begin

         case k of 1: begin Creatfile; Inputfile end;
                       6: Halt;
             else writeln('Ошибка. Повторите номер режима.')
   end;
  end;
goto 11;
End.