コトは単純で、dimをもう一度やればいいだけです。
注意点は、元の値はすべて消えるということです。
そうとわかっていれば、対応のしかたもあるということで。
-----
goto *Main
; 関数：配列要素を表示する
#module
#deffunc showArray array ary
mes "要素数:" + length(ary)
for i, 0, length(ary)
mes "[" + i + "] " + ary(i)
next
return
#global
*Main
dim a, 3
a(0) = 1
a(1) = 2
a(2) = 3
showArray a
dim a, 5
a(3) = 4
a(4) = 5
showArray a
dim a, 4
a(3) = 6
showArray a
stop
------
ま、単純なサンプルでした。
結果はこちら。
要素数:3
[0]1
[1]2
[2]3
要素数:5
[0]0
[1]0
[2]0
[3]4
[4]5
要素数:4
[0]0
[1]0
[2]0
[3]6