Компилятор не реагирует на 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 в цикле..понять не могу откуда этот глюк....помогите плизз...