Почему программа пропускает readln?

program generator;
type zap = record
  d1,d2: integer
end;
var
  i,n,k,j: integer;
  f1,f2,f3: text;
  s1,s2,ans,ans2: string;
  m: array [1..5] of zap;
begin
  writeln('Cколько фамилий (и имён) сгенерировать?'); write('Количество строк = '); readln(n);
  assign(f1,'names.txt');
  reset(f1);
  assign(f2,'fams.txt');
  reset(f2);
  assign(f3,'output.txt');
  rewrite(f3);
  writeln('Выводить число фамилий в начале файла? (да/нет)'); write('Ответ: '); readln(ans);
  if ans = 'да' then writeln(f3,n);
  writeln('Сколько случайных данных после фамилии и имени вам нужно? (1-5)'); write('Количество случайных данных в каждой строке = '); readln(k);
  for i := 1 to k do
  begin
    writeln('Укажите диапазон значений ',i); write('Диапазон',i,': от '); read(m[i].d1); write('Диапазон',i,': до '); read(m[i].d2)
  end;
  writeln('Что сначала: имя или фамилия?'); write('Первым будет '); readln(ans2);
  for i := 1 to n do
  begin    
    readln(f1,s1);
    readln(f2,s2);
    if ans2 = 'имя' then
      write(f3,s1,' ',s2)
    else
      write(f3,s2,' ',s1);
    for j := 1 to k do
      write(f3,' ',random(m[j].d1,m[j].d2));
    writeln(f3,'')
  end;
  close(f1);
  close(f2);
  close(f3);
  writeln('Файл успешно сгенерирован!')
end.

procedure EmptyKeyBuf;
begin
  while (KeyPressed) do begin
    readkey;
  end;
end;
 
...
EmptyKeyBuf;
readln();
...