Найти наибольшее из модулей компонентов файла с нечетными номерами - Pascal

Формулировка задачи:

Записать в файл прямого доступа N действительных чисел. Найти наибольшее из модулей компонентов с нечетными номерами этого файла.

Решение задачи: «Найти наибольшее из модулей компонентов файла с нечетными номерами»

Листинг программы

var
    f: File Of Real;
    i, n: Word;
    temp: Real;
begin
    Randomize();
    Assign(f, 'f.dat'); ReWrite(f);
    repeat
        Write('Input n (>0) ='); ReadLn(n);
    until (n > 0);
    for i := 1 to n do
    begin
        temp := Random() * 200 - 100;
        WriteLn(temp:0:3);
        Write(f, temp);
    end;
    Close(f);
end.

Объяснение кода листинга программы

В начале кода объявляются переменные: f - файл, i - счетчик, n - число, temp - временная переменная типа Real.
Затем выполняется инициализация генератора случайных чисел с помощью функции Randomize().
Устанавливается имя файла 'f.dat' и режим записи в него с помощью функций Assign() и ReWrite().
Запускается цикл repeat-until, который продолжается до тех пор, пока введенное пользователем число n больше 0.
Внутри цикла переменная i принимает значения от 1 до n.
Для каждого значения i выполняется следующий блок кода:
- Переменная temp инициализируется случайным числом в диапазоне от -100 до 100.
- Строка с числом temp выводится на экран.
- Число temp записывается в файл f.
После завершения цикла повторяется закрытие файла с помощью функции Close().