せっかくデータの数に合わせて配列変数を宣言しているので スペースも何も無いデータは詰めるのであればデータの数を数えるときも スペースも何も無いデータは数えない方がいいですね。 READ A$:IF A$!="" THEN C=C+1