[oli]

Дан файл f, компоненты которого являются целыми числами. Нулевых компонентов нет. Числа в файле идут в следующем порядке: четыре положительных, четыре отрицательных, четыре положительных, четыре отрицательных и т.д. Переписать компоненты файла f в файл g так, чтобы в файле g числа шли в следующем порядке: 8 положительных, 8 отрицательных, 8 положительных, 8 отрицательных и т.д.(предполагается, что число компонент файла f делится на 16).

Помогите написать процедуру, которая будет записывать числа в файл g

[Kailon]

А файлы какие? Текстовые, типизированные, нетипизированные?

[@Rafa3L]

Содержимое файла f.txt

92 75 6 83
-17 -61 -40 -35
79 8 65 28
-87 -32 -65 -90
12 8 18 32
-38 -4 -48 -65
69 18 22 52
-33 -26 -44 -60
74 92 61 45
-50 -32 -76 -93
36 79 27 79
-20 -64 -82 -39
42 45 74 46
-9 -66 -44 -65
78 67 78 85
-22 -19 -93 -91

Код:

procedure Zps;
var
 sl, sm: TStrings;
 i, b: integer;
 s1, s2: string;
begin
 sl:= TStringList.Create;
 sm:= TStringList.Create;
 sl.LoadFromFile('f.txt');
 b:= 0;
 s1:= '';
 s2:= '';
 for i:= 0 to sl.Count-1 do
  begin
   Inc(b);

   if (i mod 2) = 0 then
    s1:= s1 + sl[i] else
    s2:= s2 + sl[i];

   if b > 3 then
    begin
     sm.Add(s1);
     sm.Add(s2);
     s1:= '';
     s2:= '';
     b:= 0;
    end;
  end;

 sm.SaveToFile('g.txt');
 sl.Free;
 sm.Free;
end;

результат в файле g.txt

92 75 6 83 79 8 65 28
-17 -61 -40 -35 -87 -32 -65 -90
12 8 18 32 69 18 22 52
-38 -4 -48 -65 -33 -26 -44 -60
74 92 61 45 36 79 27 79
-50 -32 -76 -93 -20 -64 -82 -39
42 45 74 46 78 67 78 85
-9 -66 -44 -65 -22 -19 -93 -91

4250