{Ouverture et lecture dans un 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;
chemin : string;

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

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

writeln('Contenu du fichier ',chemin);
while not(eof(eleve1)) do
begin
read(eleve1,ch);
writeln('ligne n°',filepos(eleve1),' : ',ch);
end;
close(eleve1);
end.