[Xalexo]

Если под сохранением порядка подразумевается упорядоченная запись чисел, сгенерированных в случайном порядке в файлы f и g, то внутрь вышеупомянутого цикла записи результируемого файла можно внедрить что то вроде -

Код:

if n>max then max:= n;

Хотя есть, конечно более оптимальные алгоритмы сортировки...