ArrayLEADERS := { Qnton: 5
					 , Wnton: 6
					 , Enton: 12
					 , Rnton: 1
					 , Tnton: 22
					 , Ynton: 5
					 , Unton: 22 }
					 
SortedArray := MySort(ArrayLEADERS)
for k, v in SortedArray
	MsgBox, % v[1] A_Tab v[2]
Return

MySort(obj)  {
	arr := []
	for k, v in obj
		arr.Push([k, v])
	Return Sorting(arr)
}

Sorting(arr)  {
	ArrMin := [], ArrMax := []
	for k, v in arr  {
		if (k = 1)
			continue
		array := arr[k, 2] < arr[1, 2] ? "ArrMin" : "ArrMax"
		%array%.Push(arr[k])
	}
	for k, v in ["ArrMin", "ArrMax"]
		(%v%.Length() > 1 && %v% := Sorting(%v%))
	
	Return ArrMin, ArrMin.Push(arr[1]), ArrMin.Push(ArrMax*)
}

ArrayLEADERS := { Qnton: 5
					 , Wnton: 6
					 , Enton: 12
					 , Rnton: 1
					 , Tnton: 22
					 , Ynton: 5
					 , Unton: 22 }
					 
SortedArray := MySort(ArrayLEADERS)
for k, v in SortedArray
	MsgBox, % v[1] A_Tab v[2]
Return

MySort(_obj)  {
	arr := [], obj := _obj.Clone()
	for k, v in obj
		keys .= (A_Index = 1 ? "" : ",") . v
	Sort, keys, N D,
	Loop, parse, keys, `,
		for k, v in obj
			(A_LoopField = v && arr.Push([k, v]) && obj.Delete(k))
	Return arr
}

global ArrayLEADERS := Object()
global ArrayTopLeaders := Object()

ArrayLEADERS[x := "Qnton"] := 5
ArrayLEADERS[x := "Wnton"] := 6
ArrayLEADERS[x := "Enton"] := 12
ArrayLEADERS[x := "Rnton"] := 1
ArrayLEADERS[x := "Tnton"] := 22
ArrayLEADERS[x := "Ynton"] := 5
ArrayLEADERS[x := "Unton"] := 22

LastMaxPoint := 0
LastMaxName := ""
LastListArray := ""
CountPlayers := 0
CountListLeaders := 0

for name, point in ArrayLEADERS {
	if(point > LastMaxPoint) {
		LastMaxPoint := point
		LastMaxName := name
	}
}

LoopLastMaxPoint := LastMaxPoint + 1

Loop % LastMaxPoint {
	LoopLastMaxPoint -= 1
	for name, point in ArrayLEADERS {
		if(LoopLastMaxPoint = point) {
			LastListArray .= name "@"
		}
		CountPlayers := A_Index
	}
}

Loop, Parse, LastListArray, `@
	LastListDescArray := trim(A_LoopField "@" LastListDescArray, "@")

if(CountPlayers >= 5)
	CountListLeaders := 5
else
	CountListLeaders := CountPlayers

Loop, Parse, LastListDescArray, `@ 
{
	ArrayTopLeaders[ArrayLEADERS[y := A_LoopField], z := A_LoopField] := ArrayLEADERS[x := A_LoopField]
	if(CountListLeaders = A_Index)
		break
}

for key, val in ArrayTopLeaders {
	for name, point in val {
		msgbox % CountListLeaders " место занял " name ", он набрал " point " баллов."
		CountListLeaders -= 1
	}
}