Удалить из файла все элементы с четными номерами

{Написать программу, заносящую в файл 10 натуральных чисел, введенных
с клавиатуры. Удалить из него все элементы с четными номерами. Считать
файл и вывести все значения на экран.}
uses
  crt;
const
  nmax=100;
var
  a:array[1..nmax] of integer;
  n,i,j,k:integer;
  x,y:integer;
  f:file of integer;
begin
  clrscr;
  randomize;
  assign(f,'file.dat');
  rewrite(f);
  repeat
    write('Размер массива до ',nmax,' n=');
    readln(n);
  until n in [1..nmax];
  writeln('Массив:');
  for i:=1 to n do
    begin
      readln(a[i]);
      write(f,a[i]);
    end;
  writeln;
  close(f);
 
  writeln;
  reset(f);
  i:=1;
  n:=filesize(f)-1;
  while i<n do
    begin
      for j:=i to n-1 do
        begin
          seek(f,j+1);
          read(f,x);
          seek(f,j);
          write(f,x);
        end;
      n:=n-1;
      i:=i+1;
  end;
  seek(f,i);
  truncate(f);
  close(f);
 
  reset(f);
  n:=filesize(f)-1;
  writeln('Удаление с четными индексами:');
  for i:=0 to n do
    begin
      seek(f,i);
      read(f,x);
      write(x:4);
    end;
  close(f);
  readln;
end.