Паскаль.Файлы.удаление отрицательных чисел

[NEMO1991]

подскажите пожалуйста как удалить все отрицательные числа из файла?

[MaTBeu]

Считываете все из файла в массив. Удаляете все отрицательные числа. Переписываете в файл.

[Serge_Bliznykov]

Считываете все из файла в массив. Удаляете все отрицательные числа. Переписываете в файл.

А зачем так сложно?! Ведь массив в данном случае это только тормоза и сложность при программировании:

Assign(fIn,'ТутИмяВходнойФайл');
Reset(fIn);
Assign(fOut,'ТутИмяВыходногоФайла');
Rewrite(fOut);
while Not Eof(fIn) do begin
   Read(fIn, K);
   if K>=0 then Write(fOut, K);
end;
Close(fIn);
Close(fOut);
end.

[NEMO1991]

Спасибо огромное))помогло.может поможете с еще одной задачкой. из лабы почти все сделал а на счет этой в говову ниче не идет... http://programmersforum.ru/showthread.php?t=53076