rangetst: obj
Array:
pos: var integer
noof: var integer
Range:
in low: var integer
in upp: var integer
noof: obj +
check:
in inx: var integer
print:
D1_Array: Array
in R: ref Range
D1_ElmType:< Object
DX: obj D1_Array(Range(,),integer)