Voici ce que j'ai fait; j'ai vu que dans un post vous avez fait une correction d'un exercice similaire mais j'ai du mal à comprendre ce que vous savez fait, donc je vous mets mon bout de programme.

J'ai fait comme ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
rewrite(f2);
 
   for i:= 0 to filesize(f1)  do begin
      seek(f1,filesize(f1)-i );
      read(f1, x);
      write(f2, x);
   end;
Ceci doit être une procédure qui doit générer dans le fichier 2 l'inverse du fichier 1.

Il y a une autre consigne mais déjà je veux réussir à faire ça; pour le reste, je verrai.