Присоединить к данному типизированному файлу такой же файл в перевернутом виде - Free Pascal

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

Дан файл чисел. Присоединить к данному файлу такой же файл в перевернутом виде.

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

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

var
    f: File Of Real;
    x: Real;
    i: Byte;
begin
    Randomize();
    Assign(f, 'f.dat'); ReWrite(f);
    for i := 1 to 5 do
    begin
        x := Random() * 200 - 100;
        Write(x:8:2);
        Write(f, x);
    end;
    Close(f);
end.

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

Объявлены переменные:
- f: File Of Real - файл, который будет записываться и считываться;
- x: Real - временная переменная типа Real;
- i: Byte - счётчик, используемый в цикле.
Запущен генератор случайных чисел с помощью функции Randomize().
Файл 'f.dat' создан или открыт для записи с помощью функции Assign(f, 'f.dat').
Файл подготовлен для записи с помощью функции ReWrite(f).
В цикле от 1 до 5 выполняются следующие действия:
- Переменной x присваивается случайное число от -100 до 100 с шагом 200 с помощью выражения Random() * 200 - 100.
- Число x записывается в файл с помощью функции Write(x:8:2).
- Число x записывается в файл f с помощью выражения Write(f, x).
Файл закрывается для дальнейшего использования с помощью функции Close(f).