Массив из 1d в 2d со сдвигом в значениях

Func _1Dto2DArray(ByRef $aArray, Const $iAdditionalColumns = 1)
    Local Const $iSize = UBound($aArray, 1)
    Local $aReturn[$iSize][$iAdditionalColumns + 1]
    For $A = 0 To $iSize - 1
		For $I = 0 To $iAdditionalColumns
			if $A == 0 AND $I == 0 Then
			   $var1 = 0
			ElseIf $A == 0 AND $I > 0 Then
			   $var1 = $A+$I
			ElseIf $A <> 0 Then
			   $var1 = $A+1
			EndIf
			$aReturn[$A][$I] = $aArray[($var1 < $iSize ? $var1 : $iSize - 1)]
		Next
    Next
    $aArray = $aReturn
    Return $aReturn
EndFunc

#include <Array.au3>
Local $ar[6] = [1, 2, 1, 2, 1, 2]; четное колличество строк
;Local $ar[7] = [1, 2, 1, 2, 1, 2, 1]; нечетное колличество строк
Local $ca = UBound($ar)
Local $sc = $ca / 2
If StringInStr($sc, '.') Then $sc = Ceiling($sc) ; если массив $ar имеет нечетное колличество строк, то увеличиваем $sc
Local $res[$sc][2]
Local $d = 0
For $i = 0 To $ca - 1
	If StringInStr(($i / 2), '.') Then
		$res[$d][1] = $ar[$i]
		$d += 1
	Else
		$res[$d][0] = $ar[$i]
	EndIf
Next
_ArrayDisplay($res)

#include <Array.au3>

Global $a[] = [1,2,3,4,5,6,7,8,9,0]

_ArrayDisplay(_1Dto2DArray($a))
_ArrayDisplay(_1Dto2DArray($a, 3))
_ArrayDisplay(_1Dto2DArray($a, 4))

Func _1Dto2DArray(Const ByRef $a1D, $iCol = 2)
  If Not IsArray($a1D) Or UBound($a1D, 0) <> 1 Then Return SetError(1, 0, 0)
  If $iCol < 2 Then Return SetError(2, 0, 0)
  Local $a2D[Ceiling(UBound($a1D) / $iCol)][$iCol], $Line, $j
  For $i = 0 To UBound($a1D) - 1
    $a2D[$Line][$j] = $a1D[$i]
    If $j = $iCol - 1 Then
      $Line += 1
      $j = 0
    Else
      $j += 1
    EndIf
  Next
  Return $a2D
EndFunc