用一个递归可以搞定,不过效率不高,比如有8个数则要8!次排序

procedure sort(var ar: array of real; sortid: Integer);
var
    i, j: integer;
    tmpvalue: real;
begin
    if sortid < sizeof(ar) then
    begin
        for i := sortid to sizeof(ar) do
        begin
            if ar[j] > ar[i] then
            begin
                tmpvalue := ar[i];
                ar[i] := ar[j];
                ar[j] := tmpvalue;
            end;
        end;
        inc(sortid);
        sort(ar, sortid);
    end;
end;