Le programme suivant ouvre un fichier et affiche les données qu'il contient.
program LectureAdresses;
type
Adresse = record
nom, rue, ville : string;
numero : integer;
end;
Fichier = file of Adresse ;
var
carnet : Fichier;
client : Adresse;
begin
assign(carnet, 'carnet_adresses') ;
reset(carnet) ;
with client do
while not eof (carnet) do
begin
read(carnet, client);
write ('NOM :', nom) ;
write ('NUMERO, numero) ;
write ('RUE :', rue) ;
write ('VILLE :', ville) ;
end ;
close (carnet) ;
end.