;===================================
;ReadInt не использован
;из-за проблем блица с кодировкой
;чисел в блокноте
;===================================
; Открыть файл для считывания
filein = ReadFile("mydata.dat")
; Считываем из файла длину массива как текст и переводим в число
DimLen=Int(ReadString(filein)
Dim Highscore(DimLen)
; Считать лучшие результаты как строку из файла и пишем в массив
For i=0 to DimLen-1
HighScore(i)=Int(ReadLine(infile))
Next
; Закрыть файл, как только считывание закончилось
CloseFile( filein )
Print "Рекорд (HighScore), считанный из файла mydata.dat "
For i=0 to DimLen-1
Print "Место N"+i+" - "+HighScore(i)
Next
WaitKey()
End