Pascal Файлы

[Trancer_drum]

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

Дан файл f , элементы которого явл. целыми числами. Никакой из элементов файла не равен нулю. Файл F содержит столько же отрицательных чисел, сколько и положительных. Используя вспомогательный файл h, переписать элементы файла F в файл g, так чтобы в файле g:
cначала шли положительные, потом отрицательные числа

[Veselyn]

В чем проблема, создать файл или отсортировать?

[JohnOtto]

Отсортировать

[Veselyn]

if a[i]>0 then 
pol:=pol+' '+a[i];    else 
otr:=otr+' '+a[i]; 
.....
write('Rezyltat: ',pol, otr);

как то так