sort array

Hejsa

Jeg skal sortere et array:

type
  TUserListe=array[1..3,1..50000] of String;
var
  Users: TUserListe;

Array er bygget op med text i [1,y]
et tal i [2,y] og tekst i [3,y]

Jeg skal sortere mit array med det største tal øverst i Users. (flere tal kan have samme værdi)

Jeg har tænkt lidt på det her... men der er 2 probler.. 1) det virker ikke 2) den duer ikke da flere tal har samme værdi:

function SortUsers (): Boolean;
var
  i: integer;
  temp1: string;
  temp2: string;
  temp3: string;
  flytcount: integer;
begin
  flytcount := UserNumber;
  repeat
    for i:=1 to UserNumber do
      begin
        if Users[2,i] <= Users[2,i+1] then
          begin
            temp1 := Users[1,i]; 
            temp2 := Users[2,i];
            temp3 := Users[3,i];
            Users[1,i] := Users[1,i+1];
            Users[2,i] := Users[2,i+1];
            Users[3,i] := Users[3,i+1];
            Users[1,i+1] := temp1;
            Users[2,i+1] := temp1;
            Users[3,i+1] := temp1;
          end
        else
          flytcount := flytcount -1;
      end;
  until flytcount = 0; //hvis den er nul, så blev der ikke flyttet nogen.. og så står alle rigtigt.
  Result := true;
end;