Developing.ru

Ну, так я к Вашей дописал.
Если надо — разделите на 2 половины. Тогда Ваша программа будет записывать файл, а если оставить
Assign и мои строчки, то получится программа, которая читает. Уже без seek.