</font>        <i>// Tu remet le nombre de byte que t'as
                          // chang&eacute;s (dans cet exemple, on a fait 5 changement)</i>

 <font color="Teal"> Begin             </font>         <i>//  Pas touche</i>
 <font color="Teal">  Seek(F,A[I].A);  </font>         <i>//  Pas touche</i>
 <font color="Teal">  Ch:=Char(A[I].B);</font>         <i>//  Pas touche</i>
 <font color="Teal">  Blockwrite(F,Ch,1);</font>       <i>//  Pas touche</i>
 <font color="Teal"> End;                </font>       