Sortieren mit direktem Auswahlort

[humbuck]

...oder das...

Trifft es vielleicht noch eher...

Delphi-Quellcode:

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