program Adresses;
Adresse = record
nom, rue, ville : string;
numero : integer;
end;
Fichier = file of Adresse ;
var
carnet : Fichier;
client : Adresse;
c : char;
begin
assign (carnet, 'carnet_adresses') ;
rewrite (carnet) ;
c := 'O' ;
with client do
while c <> 'N' do
begin
write ('NOM :') ; readln (nom) ;
write ('NUMERO :') ; readln (numero) ;
write ('RUE :') ; readln (rue) ;
write ('VILLE :') ; readln (ville) ;
write(carnet,client) ;
writeln ('Autre adresse ?') ;
readln (c) ;
end ;
close (carnet) ;
end.