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

[Гость]

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

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

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

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

ты их заносишь в массив, а надо - в файл.
так файл останется пустым.

[Гость]

нужно просто без массива? так?

var f:file of integer;
    fileName:string;
    i,n,p,next:integer;
begin
Assign(f,'FileName.tip');
rewrite(f);
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);
readln;
end.

[Гость]

Помогите плиз!!!
в самом файле (данном якобы) данные вводиться должны с клавиатуры?Или они должны быть заданы константой, чтобы можно бфло работать с этим файлом...??