Типизированные файлы

[SwAAAte83]

Помогите пожалуйста есть задание и программа нужно немного ее подкорректировать в концовке не могу разобраться с последним циклом как...

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

Причем компоненты должны быть: первые 5 положительных элементов первой строки в первом файле, потом первые 5 отрицательных элементов второй строки, затем вторые 5 положительных элементов первой строки и наконец вторые 5 отрицательных элементов второй строки.

а получаеться только каждые 5 элементов каждой новой строки... КТО СМОЖЕТ ЧЕМ ТО ПОМОЧЬ ИЛИ ПОСОВЕТОВАТЬ ПИШИТЕ, ОЧЕНЬ БУДУ ПРИЗНАТЕЛЕН ПОМОЩИ..

Program L_8;
uses crt;
var
f,g : file of integer;
x, i, r,n: integer;
t:integer;

begin
clrscr;
randomize;
assign(f,'D:\files\1.dat');
assign(g,'D:\files\2.dat');
Rewrite (f);
Rewrite(g);
writeln('Первый файл: ');
for i := 1 to 40 do
begin
if ((i>=1) and (i<=10)) or ((i>=20) and (i<=30)) then r:=0;
if ((i>=11) and (i<=20)) or ((i>=31) and (i<=40)) then r:=100;
x:=random(100)-r;
write(x:4);
if i mod 10 = 0 then writeln();
Write(f, x);
end;
i:=1;
reset(f);
while not(Eof(f)) do
begin
if i=1 then
begin
repeat
read(f, t);
write(g,t);
until i<=5;

n:=i;
end
else
begin
if i=n+1 then
write(g,t);
end;
end;

reset(g);
writeln('Второй файл: ');
while not(Eof(g)) do
begin

read (g,t);
write (t:4);
end;

Close(g);
Close(f);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

не знаю, насколько это ещё актуально.
но, на досуге набросал решение.
без использования дополнительной памяти (вроде буфера или массива), но ничего не обходится бесплатно - приходится платить постоянным "seek"-аньем по исходному файлу. (кстати, решение с двумя массивами по 5 элементов (куда мы читаем временно ненужные элементы, а потом записывает их в выходной файлы было бы куда эффективней, но и немного сложнее алгоритмически).
вот решение с двумя указателями, через которые и идёт чтение исходного файла:

program L_8;

uses crt;
var
  f, g: file of integer;
  x, i, r : integer;
  Count1 : integer;
  PosPositive, PosNegative : integer;

begin
  clrscr;
  randomize;
  assign(f, 'dfiles1.dat');
  assign(g, 'dfiles2.dat');
  Rewrite(f);
  Rewrite(g);
  writeln('Первый файл: ');
  for i := 1 to 40 do
  begin
    if odd ((i-1) div 10) then r := 0 else r:= 100;
    x := random(100) - r;
    write(x: 4);
    if i mod 10 = 0 then writeln;
    Write(f, x);
  end;

  Close(f);
  reset(f);
  Count1 := FileSize(f);


  {установим позиции для смещения чтения из файла
    положительных и отрицательных чисел}
  PosPositive := 0;
  PosNegative := 10;

  WriteLn('Формируем второй файл из первого');
  for i:=1 to Count1 do begin
    { Write(' читаем элемент i=',i); }
    if not odd( (i-1) div 5 ) then begin
      { Write(' положительные, по смещению ',PosPositive); }
      Seek(f, PosPositive);
      Read(f, x);
      Write(g, x);
      if PosPositive mod 10 = 9 then Inc(PosPositive, 11)
      else Inc(PosPositive);
    end
    else begin
      { Write(' отрицательные, по смещению ',PosNegative); }
      Seek(f, PosNegative);
      Read(f, x);
      Write(g, x);
      if PosNegative mod 10 = 9 then Inc(PosNegative, 11)
      else Inc(PosNegative);
    end;
    { WriteLn; }
  end;
  Close(f);
  Close(g);

  {прочитаем и выведем содержимое второго файла на экран}
  writeln('Второй файл: ');
  Reset(g);
  for i:=1 to FileSize(g) do
  begin
    Read(g, x);
    Write(x:4);
    if i mod 5 = 0 then writeln;
  end;
  Close(g);
  Writeln;
  Readln
end.

[SwAAAte83]

спасибо тебе большое и ты не может не поверишь но точно тем же самым способом и сделал прогу))) ее уже сдал осталось две проги одна ниже висит, и еще одна: ты случайно с модулем дос не поможешь???