pascal fichiers "file not open"

Bonjour,
j'ai écris un programme en pascal et voilà le message qui s'affiche au niveau ***:

program fichier;

type enr=record
fonction:string[18];
grade:string[20];
sexe:char;
end;
fenr= file of enr;
var
emp:enr;i:integer;
femp:fenr;
rep:string[3];
procedure nbesf(var k:integer );
begin
reset(femp);
*** while not eof(femp) do
begin
read(femp,emp);
if emp.fonction='enseignant'then if emp.sexe='f' then k:=k+1;
close(femp);
writeln('le nombres d''enseignantes est :',k);
end;
end;
begin
assign(femp,'c:\madjid.txt');
rewrite(femp);
repeat
with emp do
begin
write('fonction:');readln(fonction);
write('sexe');readln(sexe);
end;
write(femp,emp);
write('vous avez fini ??!!!!!');
readln(rep);
until rep='oui';
reset(femp);
nbesf(i);
readln;end.

donc , la compilation et l'exécution se font normalement mais quand on repond oui , c'est à dire en sortant de la boucle , il sort et affiche l'erreur "file not open"

merci pour vos réponses