Sortieren mit direktem Auswahlort

[humbuck]

Probiers mal damit:

Delphi-Quellcode:

procedure auswahlsort (var a: array of Word);
var bis,i,j,k : LongInt;
h : Word;
begin
bis := High(a);
for i := 0 to bis - 1 do
begin
h := a[i];
k := i;
for j := i + 1 to bis do if a[j] < h then
begin
h := a[j];
k := j
end;
a[k] := a[i];
a[i] := h
end
end;