// Déclaration et initialisation des variables
NomCheminFichier is string
IDFichier is int
TailleEcrit is int = 0
ResFermeFichier is int

// Sélection du nom et du chemin du fichier
NomCheminFichier = "C:\MesRépertoires\Fichier.txt"

// Ouverture du fichier
IDFichier = fOpen(NomCheminFichier, foReadWrite)

// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
IF IDFichier = -1 THEN
	Error(ErrorInfo(errMessage))
ELSE
	// Lecture du premier enregistrement
	HReadFirst(Client, IDClient)
	// Autres enregistrements à lire ? Erreur d'écriture ?
	WHILE HOut() = False AND TailleEcrit <> -1
		// Écriture des données dans le fichier
		TailleEcrit = fWrite(IDFichier, ...
			Client.NomClient + TAB + ...
			Client.PrénomClient + TAB + Client.AgeRéel + CR)
		// Lecture des enregistrements suivants
		HReadNext(Client, IDClient)
	END
	// Affichage du message d'erreur si l'écriture n'a pas été effectuée
	IF TailleEcrit = -1 THEN Error(ErrorInfo(errMessage))
	// Fermeture du fichier
	ResFermeFichier = fClose(IDFichier)
	IF ResFermeFichier = -1 THEN
		// Affichage du message d'erreur si la fermeture n'a pas été effectuée
		Error(ErrorInfo(errMessage))
	END
END