Cette procédure permet de couper à l'endroit actuel le contenu du fichier.
Procedure Truncate(fich:File);