Файлы, Создать файл,и переписать компоненты в другой Опции

[Гость]

Читал раздел в FAQ и поиск результатов тоже не дал. Помогите с решением задачи!

Дан файл f компонентами которого являются целые числа.Число компонент делится на 4. Никакая из компонент не равна нулю. Файл f содержит равное кол-во отрицательных и положительных компонент.Переписать компоненты этого файла в файл k так, чтобы в файле k числа шли в след. порядке: 2 отрицательных,2 положительных,2 отриц.,2 положит. и т.д.

Подскажите как это реализовать,пожалуйста. Заренее благодарен.

[мисс_граффити]

зачем массив?
ты пробовал(а) реализовать предложенный мной вариант? показывай попытки...

[Гость]

Я его даже не сохранил... так как постоянно показывало,что тип не соответствует... если не нужен массив... сейчас попробую без массива...

[Гость]

что-то совсем не получается ничего.Еще и ошибка теперь:(А завтра уже нужно сдавать:(
посмотрите плиз...

Assign(f,'f.dan');
rewrite(f);
Assign(g,'g.dan');
rewrite(g);
writeln('Vvedite kol-vo komponent(n/4)');
readln(n);
writeln('Vvedite komponenti(p<>0):');
for i:=1 to n do
begin
readln(p);
write(f,p);
end;
close(f);
reset(f);
for i:=1 to n do
begin
read(f,p);
write(p,'  '); close(f);
reset(f);
for i:=1 to n do
begin
read(f,p);
if p<0 then write(g,p); end;
end;
while not eof(f) do
begin
read(f,p);
if p>0 then write(g,p);
end;
close(g);
reset(g);
for i:=1 to n do
begin
read(g,p);
write(p,'  ');
end;
close(f);
close(g);
readln;
end.