Файлы - Pascal ABC (12703)

var f:file of integer;
    n,i,j,k,a,b:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
write('Сколько чисел записать в файл? n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(50);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:4);
 end;
writeln;
{будем удалять с четными номерами, это элементы с нечетными индексами}
reset(f);
i:=1; {начнем с номера 2, индекс=1}
seek(f,i);
while i<filesize(f) do{идем до конца файла}
 begin
  for j:=i to filesize(f)-2 do{от этого элемента до предпоследнего}
   begin
    seek(f,j+1);{читаем на 1 впереди}
    read(f,a);
    seek(f,j); {вставляем его на место предыдущего}
    write(f,a);
   end;
  seek(f,filesize(f)-1);{встаем на последний элемент и обрезаем файл}
  truncate(f);
  i:=i+1;{следующий элемент будет с начальным четным номером}
 end;
writeln('Удаление элементов с четными номерами');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:4);
 end;
close(f);
end.