Exécution du tri par fusion

procedure TriFusion (var a:tab; g, d: integer);
var i, j, k, m: integer;
begin

   // Si l'indice de début est supérieur à l'indice de fin
   // ( sinon, le tableau est vide ou n'a qu'un élément et est donc trié! )
   if g < d then
   begin
      // Calculer un indice de milieu de tableau
      m := (g + d) div 2;

      // Trier les deux sous tableaux
      TriFusion (a,g, m);
      TriFusion (a,m + 1, d);
      
      // qui est b ?
      // Pour i du milieu au début, stocker les valeurs dans 
      // un tableau intermédiaire...
      for i := m downto g do
         b[i] := a[i];

      // Pour j du milieu à la fin, stocker les valeurs à l'envers dans un 
      // tableau intermédiaire... (Le plus petit à la fin)
      for j := m+1 to d do
         b[d+m+1-j] := a[j];

      // Initialiser les indices de début des deux tableaux
      // (marquant le début du 2ème tableau à la fin car lu à l'envers)
      i := g;
      j := d;

      // Pour k du début à la fin, on fusionne les deux tableaux
      for k := g to d do
         // Si le plus petit de la première moitié est plus petit 
         // que le plus petit de la deuxième moitié...
         if b[i] < b[j] then
         begin
            // On prend celui de la première moitié et augmente l'indice 
            // du début de la première moitié
            a[k] := b[i];
            i := i + 1
         end
         else
         begin
            // On prend celui de la deuxième moitié et diminue l'indice 
            // de "début" de la deuxième moitié
            a[k] := b[j];
            j := j - 1
         end;
   end;
end;

                      [ 1 9 2 8 3 7 6 4 5 ]
[ 1       9       2       8 ] | [ 3       7       6       4   5 ]
[ 1       9 ] | [ 2       8 ] | [ 3       7 ] | [ 6       4   5 ]
[ 1 ] | [ 9 ] | [ 2 ] | [ 8 ] | [ 3 ] | [ 7 ] | [ 6 ] | [ 4   5 ]
                                                      [ 4 ] | [ 5 ]

a[0] = b[0]
g = g + 1