delphi 选择排序类

procedure SelectSort(var N:array of integer);
var
  I,J,K,IntTemp:integer;
begin
  for I := 0 to High(N)-1 do
  begin
    IntTemp:=N[I];
    K:=I;
    for J := I+1 to High(N) do
    begin
      if IntTemp>N[J] then
      begin
        K:=J;
        IntTemp:=N[J];
      end;
    end;
    if K<>I then
    begin
      N[K]:=N[I];
      N[I]:=IntTemp;
    end;
  end;
end;