Компилятор не реагирует на Read... Опции

[Тролька]

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

Код

{Процедура создания основного файла}
procedure makeF;
var lf:text;
    ff:string;
    an:char;
    nz,ng,im,fam,s:string;
begin
clrscr;
write('Введите имя создаваемого файла  ');
read(ff);
assign(lf,ff);
rewrite(lf);
an:='y';
writeln('Введите данные для файла');
repeat
write('Номер группы  ');
read(ng);
write('Номер зачетки  ');
read(nz);
write('Имя  ');
read(im);
write('Фамилия  ');
read(fam);
s:=ng+'_'+nz+'_'+im+'_'+fam;
writeln(lf,s);
writeln('Еще запись?[y/n]');
read(an);
until an='n';
close(lf);
end;

компилятор(BP7) не реагирует на все read после открытия файла на запись.лечится все это исключительно добавлением

Код

close(input);
reset(input);

перед каждым write в цикле..понять не могу откуда этот глюк....помогите плизз...

[Ozzя]

readln нужно использовать, а не read

[Тролька]

readln нужно использовать, а не read

Пробовала..но тогда он при первом входе проскакивает ввод номера группы и требует ввода сразу номера зачетки

[Ozzя]

Uses
  crt;
var
  lf:text;
  ff:string;
  an:char;
  nz,ng,im,fam,s:string;
begin
  clrscr;
  write('File name? ');
  readLn(ff);
  assign(lf,ff);
  rewrite(lf);
  an:='y';
  writeln('Enter data for file');
  repeat
    writeLn('Nomer gruppy ');
    readLn(ng);
    writeLn('Nomer zachetki ');
    readLn(nz);
    writeLn('Imya  ');
    readLn(im);
    writeLn('Familiya  ');
    readLn(fam);
    s:=ng+'_'+nz+'_'+im+'_'+fam;
    writeln(lf,s);
    writeln('Istcho raz?[y/n]');
    read(an);
  until an='n';
  close(lf);
end.

[Тролька]

пасиб.