Создать файл, компоненты (количество <=10) которого являются вещественными числами. После создания файла значения его компонент с четными номерами заменить нулями. Исходный и результирующий файлы вывести на экран - Pascal(Паскаль)

program ReplaceEvenElements;
uses crt;

const
  FileName = 'numbers.txt';

var
  f: textfile;
  n, i: integer;
  num: real;

begin
  clrscr;
  randomize;

  // Создание файла с вещественными числами
  assign(f, FileName);
  rewrite(f);

  write('Введите количество чисел (<=10): ');
  readln(n);

  writeln('Исходный файл:');
  for i := 1 to n do
  begin
    num := random * 100;
    writeln(f, num:0:2);
    writeln(num:0:2);
  end;
  close(f);

  // Замена четных элементов нулями и вывод результирующего файла
  writeln;
  writeln('Результирующий файл:');
  reset(f);

  for i := 1 to n do
  begin
    readln(f, num);
    if i mod 2 = 0 then
    begin
      num := 0;
    end;
    writeln(num:0:2);
  end;
  close(f);

  readln;
end.