{Ouverture et ajout dans le fichier}

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

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

begin

assign(eleve1,'c:\fich_el.dat');

reset(eleve1);{Ouvrir et remettre à zéro le pointeur}

{lire toutes lignes juste pour attedre la dernière }
{Ce ci nous permettra de faire l'ajout d'une valeur}

while Not(eof(eleve1)) do
begin
read(eleve1,ch);
end;

read(ch);

write(eleve1,ch);
writeln('Ajout effectué avec succès');

close(eleve1);
end.