Es ist kein Dynamisches Array und die werte sind bekannt.
Deshalb dürfte das von der Berechnung her erst einmal egal sein.
Bist Du Dir da sicher?
procedure BubbleSort(var zorder: array of Integer; var faceorder: array of Integer);
Hiernach hängt sich Zorder zumindest ein Dynamik-Mäntelchen über. Kontrollier das doch mal bitte im Debugger.
Und wenn dein kleinstes Element den Index 0 hat dann ist 1 für das kleinste Element nicht so optimal.
Aber müßte dann der Index 10 nicht vor die Wand laufen?
(Bereichsprüfung?)
Gruß
K-H