как добавить данные в существующий файл

[astron]

Нужно добавить текст в существующий файл в указанную позицию не затирая существующие данные. У меня получается добавить только в конец файла.

fs = openFile "c:/myFile.txt" mode:"a+"
seek fs 10 -- указываю позицию в которую нужно писать
print "new text" to:fs
close fs

 

[igorznag]

fs = openFile "c:/myFile.txt" mode:"r+"
seek fs #eof; maxlen=filepos fs; seek fs 10
res = readChars fs maxlen errorAtEOF:false
seek fs 10; format "new text" to:fs
format res to:fs; close fs

 

[astron]

спасибо, добрый человек!