Forums Zebulon.fr: Problème de programme sous Dev-Pascal - Forums Zebulon.fr

Bonjours,
j'ai commencé un programme utilisant les pointeurs (c'est une premiere fois), dans le but de crée des fichiers à l'aide de variables RECORD, malheuresement une erreur me bloque et je ne trouve pas; c'est peut etre bete mais une aide exterieur me serait precieuse.

program creation;

type
ETUDIANT = RECORD
NUMERO : integer;
NOM : STRING[25];
PRENOM : STRING[20];
SEXE : CHAR;
FAC : CHAR;
AE : INTEGER;
END;

VAR
FETUDIANT : FILE OF ETUDIANT;
FICHE : ETUDIANT;
REP : CHAR;

BEGIN

ASSIGN(FETUDIANT,'C:\Users\Morgan\Documents\program dev-pascal');

REWRITE(FETUDIANT);

WRITELN('Voulez vous creer un enregistrement ? (O/N)');
READLN(REP);

WHILE REP='O' DO
BEGIN
WRITELN('NUMERO =');
READLN(FICHE.NUMERO);

WRITELN('NOM =');
READLN(FICHE.NOM);

WRITELN('PRENOM =');
READLN(FICHE.PRENOM);

WRITELN('SEXE =');
READLN(FICHE.SEXE);

WRITELN('FACULTE =');
READLN(FICHE.FAC);

WRITELN('ANNEE D ETUDE =');
READLN(FICHE.AE);

WRITE(FETUDIANT,FICHE);

WRITELN('Creer un autre enregistrement ? (O/N)');
READLN(REP);

END;

CLOSE(FETUDIANT);
READLN();
END.


Le program compile mais une fois executé il se referme directement, cependant un fichier se crée à l'emplacement voulu mais contenant du texte incomprehensible avec des bouts du program...

Si vous avez une solution, merci.