[Edinora]

Код:

Seek(F,nRec);

не помогает, он просто перезаписывает в файле запись поверх записи с номером nRec.
Можно перезаписывать файл... но как-то это... слишком просто и примитивно, должен же быть способ сделать пусть сложнее но эффективней (Да здравствует теория! ).