Problème Avec La Création De Fichiers Sous Pascal, Help please !

Bonsoir,
Voilà j'ai un petit programme qui me permet de créer un fichier texte dans le quel je veux enregistrer mes livres achetées , mais le problème je veux créer plusieurs fichiers texte (chacun fichier pour un seul livre) . Quels types de modifications puis-je apporter à mon programme pour qu'il puisse fonctionner comme je le souhaite ? :

{***debut** }      

Program bibliotheque ;      

type livre = record       

maison_ed :string[15] ;      
auteur:string[15] ;      
nom_du_livre:string[20];      
end ;      

var book : file of livre ;      

begin       
assign(book,'D:\books\liste.txt');      
rewrite(book);      
{////Entrer le nom du livre la maison d'éd etc .. .///}      

close (book) ;      

End.      

{***Fin***} 

Merci d'avance pour toute aide :)