配列の要素数が要因になっている以外に気になるのは、 「配列変数のＥＸ［要素数］」と「変数のＥＸ」が使われている事かな～。 ７２行目がＥＸ［Ｉ］＝ＥＸ［Ｉ］－ＥＳ［Ｉ］の様な気がしますよ？。 配列宣言をしている行（ＤＩＭ　ＥＸ［要素数］）と　６３行目、７２行目を確認してみる事をオススメします。