Delphi.Естественное слияние для файлов

[krasshik]

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