Selectionsort - Problem mit richtiger Zuweisung der Werte

[thechus]

Code:

procedure TForm1.SelectionSort(var Werte: Array of Integer);
var i,k,maxi,j,wert:integer;
begin
 maxi := high(Werte);
 for i := 0 to maxi - 1 do
  begin
   wert := werte[i];
   k := i;
   for j := i + 1 to maxi do if werte[j] < wert then
    begin
     wert := werte[j];
     k := j;
   end;
  werte[k] := werte[i];
  werte[i] := wert;
  end;
end;

Funktioniert!
DANKE!!!

Gruß,
thechus