Написать программу, которая в файл g записывает положительные числа, а файл h - отрицательные

[Гарри]

В файле f записаны целые числа. Написать программу, которая в файл g записывает положительные числа, а файл h - отрицательные

[Serge_Bliznykov]

В файле f записаны целые числа.

не конкретно. файл типизированный (file of integer) или банально текстовый?

если файлы типизированные, то вот полностью программа:

var f,g,h : file of integer;
  a : integer;
begin
  Assign(f, 'a.bin');
  Reset(f);
  Assign(g, 'g.bin');
  Rewrite(g);
  Assign(h, 'h.bin');
  Rewrite(h);
  while not eof(f) do begin
    Read(f, a);
    if a>=0 then Write(g,a) else Write(h,a);
  end;
  Close(f);
  Close(g);
  Close(h);
end.

p.s. учтите, что типизированные файлы можно создавать и просматривать ТОЛЬКО программно!
Блокнот и другие текстоые редакторы для этого не годятся!