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

[Anton94.by]

Исправьте ошибку в программе.

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

 Исправить так, чтобы всё нужно было вводить в самом окне Паскаль. ( т.е. writeln, readln и т.д.).
program files;
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);
end.

[whatever]

Что бы что-то исправить нужна рабочая программа, эта работать не будет.
P.S. Посмотрел другие темы. Попросил бы ты исправить того, кто эти лабы писал.

[Anton94.by]

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

Что бы что-то исправить нужна рабочая программа, эта работать не будет.
P.S. Посмотрел другие темы. Попросил бы ты исправить того, кто эти лабы писал.

Если бы программа работала, то я бы её не просил исправлять.

[whatever]

Я вообще имел ввиду, что неплохо бы после program files; написать раздел var, в котором перечислить переменные, а после него begin для начала тела программы. Думаю о необходимости этих разделов знает любой новичек, научившийся писать "Hello world!" и продвинувшийся самую малость дальше.

Program files;
var
  f,q:textfile;
  x:integer;
begin
assignfile(f,'1.txt');
assignfile(q,'2.txt');
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);
end.