Сделать хитрую сортировку двух массивов

#include <Array.au3>

Local $aData[11] = [11, "1.txt", "1.rtf", "text.doc", "записка.doc", "proga.au3", "prikaz.pdf", "prikaz.txt", _
"atest.au3", "doc.pdf", "test.txt"]
Local $aIni[6] = [6, "txt", "rtf", "doc", "au3", "pdf"]

Dim $aSorted[1]
_ArraySort($aData, 0, 1)
For $i = 1 To UBound($aIni) - 1
	For $j = 1 To UBound($aData) - 1
		If StringInStr($aData[$j], "." & $aIni[$i]) <> 0 Then
			_ArrayAdd($aSorted, $aData[$j])
			$aSorted[0] += 1
		EndIf
	Next

Next
_ArrayDisplay($aSorted)