Сохранить в файле слишком длинную запись

[hoza_syl]

Если изменить разширение txt на другое можно отсеять много вирусов

[Serge_Bliznykov]

ГРУБАЯ ОШИБКА!
Не надо в цикле переоткрывать файл!!

for i := 1 to 5 do
begin
 AssignFile(F,'C:\Documents and Settings\Âåðà\Ðàáî÷èé ñòîë\members.dat');
Reset(F);
Seek(F,i-1);

то, что я пометил красным надо вынести ДО ЦИКЛА.

да тогда и seek(F,i-1) в данном случае не будет нужен!


А против вирусов нужен антивирус.
и бекап данных!
Да и банальная смена расширения в Вашем случае точно не повредит!

[Virga]

Ура, получилось! Спасибо Serge!