Problème de programme sous Dev-Pascal

[Invité Crazy_Rabbit]

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.