Dann Spliten und die Zahlen mit dieser funktion sortieren
Delphi-Quellcode:
procedure sort2 (
var a:
array of word);
var bis,i,j,k : longint;
h : word;
begin
bis := high(a);
k := bis
shr 1;
{ div 2 }
While k > 0
do begin
For i := 0
To bis - k
do begin
j := i;
While (j >= 0)
And (a[j] > a[j + k])
do begin
h := a[j];
a[j]:= a[j + k];
a[j + k] := h;
dec(j,k);
end;
end;
k := k
shr 1;
{ div 2 }
end;
End;