You can use standard arrays inside funtions if you first initialise the array 'outside' in the main loop:
Dim a(0) ; <- initialise array a()
testdim
k$=Input$("Press RETURN to end ...")
End
Function testdim()
Dim a(5)
a(1)=50 : Print a(1)
End Function