読み込んで表示するだけなら始めの例でも３行目を消してしまえば動作すると思いますよ。（その場合は配列は使わない） そして配列を使うのだとしたら、こうやまさんの言うように使いたい配列だけ確保する必要があります。 なので動作の意図を考えると本当はDIM ST$[21]と確保しないといけないんですが、READ ST$[A]となっているのでAは常に0なのでエラーにならない感じです。ただ配列を意図しているなら、READはREAD ST$[I]になるしPRINTもST$[I]にしないと意図した動作ではないんじゃないかなって思います。