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

[Света]

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

[volvo]

Вот набросок:

var
  m1, m2, m3: integer; // Здесь будем хранить 3 максимума
...
  m1 := -maxint; m2 := -maxint; m3 := -maxint;
  // пока не конец файла
  // читаем из файла очередное число X
    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;
  // конец цикла...

После этого в переменных m1, m2, m3 будут 3 наибольших по абс. величине значения. Второй проход по файлу, опять читаем число X, и сравниваем его с каждым из максимумов. Что-то вот такого типа:

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

Дальше попробуй самостоятельно.