236          Middle      : Index_Type;  variable
252             Middle :=
257             if To_Sort (Middle) < To_Sort (Left) then
258                Swap (Middle, Left);
263             if To_Sort (Right) < To_Sort (Middle) then
264                Swap (Right, Middle);
266             Pivot := To_Sort (Middle);
458          Middle      : Index_Type;  variable
463             Middle :=
468             if To_Sort (Middle) < To_Sort (Left) then
469                Swap (To_Sort, Middle, Left);
474             if To_Sort (Right) < To_Sort (Middle) then
475                Swap (To_Sort, Right, Middle);
477             Pivot := To_Sort (Middle);
629          Middle      : Natural;  variable
634             Middle := Left + (Right - Left) / 2;
636             if Is_Smaller (Middle, Left)  then Swap (Middle, Left);  end if;
638             if Is_Smaller (Right, Middle) then Swap (Right, Middle); end if;
639             Copy (-2, Middle);
768          Middle      : Natural;  variable
773             Middle := Left + (Right - Left) / 2;
775             if Is_Smaller (Middle, Left)  then Swap (Middle, Left);  end if;
777             if Is_Smaller (Right, Middle) then Swap (Right, Middle); end if;
778             Copy (-2, Middle);