Code bugg , veut savoir la raison

Bonjour,

je suis en train de faire un exercice sur les fichiers et les enregistrements , alors , j'ai fait , une procédure qui me permet d'ajouter les informations d"un etudiant ( structure ) dans un fichier , et je voudrais ajouter ensuite , un autre enregistrement à la suite , mais quand je le fais , mon programme ne marche correctement que lorsqu'il est exécuté , une fois , quand j'essaie de le refaire ( avec une boucle , ) mon programme , bug ( la ligne de commande est vide ( du au clrscr) , mais , ensuite , je ne peux plus entrer d'élements , tout ce que je mets , n'est pas pris en ccompte , ( ne sort pas dans le ligne de commande , voici ce que j'ai fait , pourriez vous me dire ou se situe l'erreur ( qu'est ce qui entraine cela ) , je sais que c'est au niveau du repassage dans la boucle , mais je ne sais pas ou exactement

procedure ajouter;      (* permet d'ajouter un etudiant dans le fichier etudiant *)
begin
     clrscr;
     rep:='o';
     while(rep='o')or(rep='O')do
     begin
          assign(fichier,'etudiant.dat'); (* on assigne le nom etudiant.dat au fichier etudiant *)

          {$i-}
         reset(fichier);  (* permet d'ouvrir le fichier et de le preparer en lecture *)
          if IOResult <> 0 then

               rewrite(fichier);  (* ouverture du fichier en ecriture *)
          while not eof(fichier)do  (* lorsque nous se sommes pas encore arrivés à la fin du fichier , alors *)
          read(fichier,etude);      (* on lit le fichier , après chaque opération , le pointeur est avancé a la position de l'element suivant *)

          {$i+}
          if IOResult >0 then

               rewrite(fichier) ;   (* a chaque fois que je vois rewrite , cela me permet d'ouvrir le fichier en ecriture *)
          while not eof(fichier)do
          read(fichier,etude);
          begin
               clrscr;
              


               writeln('                         *******     PROGRAMME   *******    ');
               writeln('                         *******  ENREGISTREMENT *******    ');
               writeln('                         *******     ETUDIANT    *******    ');
               writeln;
               writeln;

               write('Matricule: ');
               readln(etude.matricule);
               write('Nom: ');
               readln(etude.nom);
               write('Prenoms: ');
               readln(etude.prenom);
               writeln('Classe: ');
               readln(etude.classe);
               writeln('Sexe: M/F:  ');
               readln(etude.sexe);

               write(fichier,etude);

               write('VOULEZ-VOUS EFFECTUER UN AUTRE ENREGISTREMENT ETUDIANT?:  O/N:  ');
               readln (rep);
               clrscr;
          end;
     end;
end;