[HolyDel]

яж говорю - cnt считать до этого.
можно так:

cnt = 0
e=readfile(e)
while not eof
readline(e)
cnt=cnt+1
wend
dim symbols$(cnt)
dim textures(cnt)

потом уже тот кусок (предыдущий)