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

[Света]

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

[Lapp]

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

  if (m1 <> -maxint) and (m1 = X) then begin
    // Записываем во второй файл число X и ноль
    m1:=-maxint;
  end
  else
    if (m2 <> -maxint) and (m2 = X) then begin
      // Записываем во второй файл число X и ноль
      m2:=-maxint;
    end
    else
      if (m3 <> -maxint) and (m3 = X) then begin
        // Записываем во второй файл число X и ноль
        m3:=-maxint;
      end;

2 amega: а зачем переставлять файловый указатель?