Удалить из файла все отрицательные компоненты(Delphi)

[Алексей_2012]

хорошо бы стать экстрасенсом, чтоб играть в "угадай") дабуди дабудай...

[Serge_Bliznykov]

Сообщение от Алексей_2012

Serge_Bliznykov, почему сразу категорично?) ведь в моем вложении и есть работа именно с типизированным файлом, но расширение да, текстовое. Причем алгоритм по удалению отрицательных чисел реализован через массив затем файл перезаписывается, или я вас не так понял?

извините, сделал поспешные выводы, основываясь на самом вашем сообщении.
Заглянул в код. Там, да, file of integer;

единственное, не стоит писать

  Reset(f);
  Seek(f, 0);

seek здесь не нужен, ибо операция Reset и так всегда устанавливает указатель в начало файла.
Ну и перед Rewrite(f) я бы сделал предварительно CloseFile(f). Хотя, верю Вам, Вы, похоже проверили этот код на работоспособность. Так что, видимо, можно и так.

Сообщение от doktor255

Не надо валить вину на нас, из за неумения автором задавать вопросы.

да не собираюсь я никого ни в чём обвинять.

[tane]

Спасибо всем,буду потихоньку разбираться .