Работа с файлами, внешними модулями., Помогите в создании программы или хотя бы подскажите алгоритм работы: Опции

[Света]

Задание: В файле хранится набор целых чисел. Найти первые три наибольшие по абсолютной величине числа н после каждого из них вставить нулевой элемент. Результат сохранить в новый файл. содержимое исходного и конечного файлов распечатать на экране. программа поиска наибольших чисел должна находиться в отдельном модуле. Использование массивов недопустимо.

[volvo]

так она вставит нули после каждого числа, равного m1, m2 и m3, тогда как в задании речь идет только о первых трех.

В задании - неоднозначность: <6, 7, 8, 3, 4, 5, 8, 7, 4>
После каких элементов ставить нули? Только после 8, 8 и 7 (они же - три максимальных)? Либо после 6, 7, 8, 8, 7? (они же - три максимальных, но обязательно РАЗНЫХ, и добавлять нули после всех вхождений)? Если по первому варианту (я сначала его и рассматривал) - то и в первом фрагменте условия должны быть нестрогими:

    if abs(X) >= m1 then begin
      m3 := m2; m2 := m1; m1 := X;
    end
    else
      if abs(X) >= m2 then begin
        m3 := m2; m2 := X;
      end
      else
        if abs(X) >= m3 then m3 := X;

+ твое исправление, если по второму - то так, как во втором посте...

Лично я склоняюсь ко второму варианту, иначе:
<8, 8, 8, 8, 8, 8, 1, 2, 3, 4> - странно как-то, после первых трех восьмерок - нули будут, а после следующих трех (числа-то все же максимальны по модулю) уже нет...

Ждем автора с уточнением...