sortering af highscoreliste i lingo

nogen som kan forklare mig hvorfor dette ikke virker??

jeg har brug for at sortere det output jeg får fra en tekstfil

jeg opretter 2 lister gameScore, scoreNames
i den ene ligger navnene på folk i highscoren og den anden ligger deres highscore
nu skal jeg have sorteret dem sådan at den med højeste highscore ligger øverst

nogen der har nogle forslag til at løse dette problem??

on sortFunction(gameScore, scoreNames)
 
  gameScoreNum = count(gameScore)
  temp = 0
  put gameScoreNum
 
  repeat with i = gameScoreNum down to 2
    if (gameScore[i] < gameScore[i - 1]) then
      temp = gameScore[i]
      gameScore[i] = gameScore[i-1]
      gameScore[i - 1] = temp
      scoreNames[i] = scoreNames[i-1]
      i = i-1
    end if
  end repeat
sortetList = ""
  j = 1
  repeat while (j <= gameScoreNum)
    sortetList = sortetList & gameScore[j] & "-" & scoreNames[j] & RETURN
    j = j +1
  end repeat
  put sortetList
  return  sortetList
end sortFunction