Дан файл целых чисел. Удалить из него все элементы с парными номерами — Pascal(Паскаль)

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
i:integer;
var  F,f2:file of integer; {объявляем файл целых чисел}
      N,elem:integer;
 
begin
    {создаем файл и пишем в него числа - ЦЕЛЫЕ}
     assign(F,'c:\data.txt');
     rewrite(F);
     writeln;
     write('Vvedite kol-vo znachenij v fajle, N:');
     read(N);
     writeln('Vvedite elementy fajla:');
     for i:=1 to N do
     begin
     readln(elem);{пишем в файл}
     write(F,elem);
     end;
     close(F);
     writeln;           }
     writeln('elementy fajla na nechetnih mestah:');
     reset(F);
     i:=1;
     assign(f2,'c:\datat.txt');{создаем временный файл для хранения елементов на непарных местах}
    rewrite(f2);
     while not Eof(F) do begin
     read(F,elem);
        if i mod 2=1 then  begin
                              write(f2,elem); {пишем во временный файл}
                              write(elem,', '); {выводим на экран то что пишем}
                            end;
        inc(i);
     end;
     close(f2);
     Close(F);{закрываем файлы}
     erase(f);{вытираем оригинал со всеми числами}
     rename(f2,'c:\data.txt');{переименовываем временный в оригинал}
     readln;
end.