не пойму версию бейсика...
похоже на qbasic, но несоответсвие в командах объявления массива.

Для VB - другие ошибки.

(там лучше использовать ReDim)
Назови версию, я напишу тебе твою прожку