Runtime error 105

j'ai un problème avec ce programme(Runtime error 105)
ce programme est actif mais il n'exécute pas
svp répondez moi rapidement et merci :)

Bonsoir

Tu as une erreur d'ouverture de fichier. (Runtime error 105)

J'ai survolé ta source et j'ai vu que tu déclarais f,f1:text en variable globale, puis en locale dans ta fonction. Ceci n'est pas bon car tu ouvres tes fichiers en assignant les variables globales, puis dans la procédure Remplir, tu effectue les opérations de sortie en utilisant les variables locales non initialisées et inutiles.
Supprime f et f1 dans la déclaration de ta fonction et cela devait aller.