{création et écriture dans un fichier}

program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier de chaînes}

var eleve1 : f_eleve; {instance de f_eleve}
ch : string;

begin
assign(eleve1,'c:\fich_el.dat'); {associer nom logique du fichier au nom physique}

rewrite(eleve1); {Ouvrir et écrire dans le fichier}

Readln(ch);

writeln('Le fichier a été crée ! ');

write(eleve1,ch);

close(eleve1);
end.