Задача на типизированный и текстовый файлы Опции

[UnSpi]

Помогите решить такие задачи,пожалуйста:
1).Выполнить задание для заданного типизированного файла чисел f. Компоненты файла – целые (отличные от нуля) числа, причем десять идущих подряд положительных чисел чередуются с десятью отрицательными числами и т. д.
Получить файл g, в котором записано сначала пять положительных чисел, затем пять отрицательных и т.д.
2).Выполнить это же задание при условии, что файл f – текстовый, в котором каждое число записано в новой строке.

[volvo]

1. Попробуй вот такой вариант (только файл input.dat нужно создать вначале, чтобы он содержал данные именно в том порядке, в котором указано в условии... И еще: эта программа будет работать ТОЛЬКО если число элементов файла кратно 20, то есть если файл содержит целое число серий "+" "+" "-" "-", которые преобразуются в "+" "-" "+" "-")

type
  f_int = file of integer;

procedure read_20(var f, g: f_int);
const
  pos: array[1 .. 4] of byte = (0, 10, 5, 15);
var
  f_pos: longint;
  i, j: byte;
  x: integer;
begin
  f_pos := filepos(f);
  for i := 1 to 4 do begin
    seek(f, f_pos + pos[i]);
    for j := 1 to 5 do begin
      read(f, x); write(g, x);
    end
  end;
end;

var
  f, g: f_int;
  f_pos: longint;
begin
  assign(f, 'input.dat');
  reset(f);
  assign(g, 'output.dat');
  rewrite(g);

  f_pos := 0;
  while not eof(f) do begin
    seek(f, f_pos);
    read_20(f, g);
    inc(f_pos, 20)
  end;

  close(g);
  close(f);
end.

Кстати, что именно непонятно в FAQ ?