Cette procédure permet de vider les tampons d'écriture du fichier de texte spécifié.
Procedure Flush(fich:Text);