Создать текстовый файл, строки которого содержат целые числа. Обработать файл следующим образом: напечатать все отрицательные...

[Anton94.by]

Задача в Паскале по теме текстовые файлы:
Разработать программу работы с текстовыми файлами. Исходный текстовый файл создается согласно варианту.
Обработка каждого из исходных текстовых файлов заключается в формировании другого текстового файла согласно варианту.
Имена файлам (исходным и формируемым по ним) даются пользователем по запросу программы.
Выводить нужно (по порциям, помещающимся целиком на экране) любой из создан-ных текстовых файлов или любой из формируемых по исходным файлам новых текстовых файлов (по имени, вводимому пользователем по запросу программы).
Программу оформить с помощью меню со следующей структурой:

Создание Дополнение Обработка Печать Выход

задание: Создать текстовый файл, строки которого содержат целые числа. Обработать файл следующим образом: напечатать все отрицательные числа, а затем все положительные. Результат поместить в новый файл.

[rubius2008]

Если в каждой строке новое число, то так
пусть f - связана с исходным файлом, а q - новым файлом

reset(f); rewrite(q);
while not eof(f) do begin
  readln(f,x);
  if x<0 then begin
    writeln(x);    {вывод на экран}
    writeln(q,x); {в файл}
  end;
end;
reset(f); 
while not eof(f) do begin
  readln(f,x);
  if x>0 then begin
    writeln(x);    {вывод на экран}
    writeln(q,x); {в файл}
  end;
end;
close(f);close(q);

[Anton94.by]

Спасибо ! ! !