Из данного файла скопировать элементы, стоящие на нечётных местах, в один файл, стоящие на чётных - в другой - Pascal

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

Дан типизированный файл целых чисел. Записать в первый выходной файл все числа, стоящие на нечетных позициях в файле, а в другой выходной файл – на чётных.

Решение задачи: «Из данного файла скопировать элементы, стоящие на нечётных местах, в один файл, стоящие на чётных - в другой»

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

var
    f, g1, g2: File Of Integer;
    i: LongWord = 0;
    fi: Integer;
begin
    Assign(f, 'f.dat'); Assign(g1, 'g1.dat'); Assign(g2, 'g2.dat');
    Reset(f); ReWrite(g1); ReWrite(g2);
    while (Not EoF(f)) do
    begin
        Read(f, fi);
        Inc(i);
        if (Odd(i))
        then
            Write(g1, fi)
        else
            Write(g2, fi);
    end;
    Close(f); Close(g1); Close(g2);
end.

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

В начале кода объявляются три переменные типа File Of Integer: f, g1 и g2. Они будут использоваться для чтения и записи данных в файлы.
Затем объявляется переменная i типа LongWord, которая будет использоваться для подсчета чисел, прочитанных из файла.
Далее объявляется переменная fi типа Integer, которая будет использоваться для чтения чисел из файла.
В блоке Assign файлы f, g1 и g2 указываются соответствующие имена файлов для записи результатов.
В блоке Reset файлы f, g1 и g2 сбрасываются в начало, чтобы можно было начать запись заново.
В цикле while происходит чтение чисел из файла f до тех пор, пока не будет достигнут конец файла (EoF).
Внутри цикла число i увеличивается на единицу.
Затем проверяется, является ли число i нечётным. Если да, то оно записывается в файл g1, иначе в файл g2.
После окончания цикла все файлы закрываются.