Имеется типизированный файл с числами .Напечатать все его элементы с нечетным порядковым номером

{ имеется типизированный файл с числами .Напечатать все его элементы с
нечетным порядковым номером . Рассмотреть два варианта:
а) известно,что в существующем файле записаны 20 чисел;
б) размер существующего файла неизвестен}
const
  n=20;
var
  f:file of integer;
  i,a:integer;
begin
  assign(f,'numbers.dat');
  reset(f);
  for i:=1 to n do
    begin
      seek(f,i-1);
      read(f,a);
      if odd(i) then
        write(a);
    end;
  close(f);
  reset(f);
  i:=1;
  while not eof(f) do
    begin
      read(f,a);
      if odd(i) then
        write(a);
      inc(i);
    end;
  close(f);
end.

Const n=20;
Var f:file of real;
    i:integer;
    m:real;
Begin
    Assign(f,'in.dat');Rewrite(f);
    For i:=1 to n do
    Begin
      m:=-5+random*10;
      write(f,m);
    End;
    Reset(f);
    For i:=1 to n do
    Begin
      read(f,m);
      write(m:6:2);
    End;
    writeln;
    writeln('Элементы с нечёнтным порядковым номером');
    i:=1;
    Reset(f);
    While i<=n do
    Begin
      Seek(f,i);
      read(f,m);
      write(m:6:2);
      inc(i,2);
    End;
    Close(f);
    readln;
End.

Var f:file of real;
    i,n:integer;
    m:real;
Begin
    Assign(f,'in.dat');Rewrite(f);
    write('n: ');readln(n);
    For i:=1 to n do
    Begin
      m:=-5+random*10;
      write(f,m);
    End;
    Reset(f);
    While not Eof(f) do
    Begin
      read(f,m);
      write(m:6:2);
    End;
    writeln;
    writeln('Элементы с нечёнтным порядковым номером');
    i:=1;
    Reset(f);
    While not Eof(f) do
    Begin
      Seek(f,i);
      if not Eof(f) then read(f,m) else Continue;
      write(m:6:2);
      inc(i,2);
    End;
    Close(f);
    readln;
End.