#include <Array.au3>
Local $aRandom[Random(100, 200, 1)][Random(5, 15, 1)], $aRes[1], $iUb1, $iUb2, $iDelRow = 2, $iTmp
$iUb1 = UBound($aRandom)
$iUb2 = UBound($aRandom, 2)
For $i = 0 To $iUb1 - 1
For $j = 0 To $iUb2 - 1
$aRandom[$i][$j] = $i & '-' & $j
Next
Next
_ArrayDisplay($aRandom)
ReDim $aRes[$iUb1][$iUb2 - 1]
For $i = 0 To $iUb1 - 1
$iTmp = 0
For $j = 0 To $iUb2 - 1
If $j = $iDelRow Then ContinueLoop
$aRes[$i][$iTmp] = $i & '-' & $j
$iTmp += 1
Next
Next
_ArrayDisplay($aRes)