Ошибка в типизированном файле

var f: file of real;
i,n,l:integer;
x:real;
 
begin 
assign(f,'1.dat'); 
rewrite (f);
write('Количество чисел '); readln(n);           
l:=0;
for i:=1 to n do begin 
 write ('ведите степень числа 3 у ',i,' компонента ');
  readln(x);
  x:=Power(3,x);
   write(f,x);
   end; 
   close(f);
    reset(f);
    
     
     for l:=1 to n do
     begin
     read(f,x);
     if l mod 2 = 0 then  seek(f,l);
     writeln(x,' ')
     
   end;
  
    close(f);
   
    end.

{Работа с одним типизированным файлом.
Создать файл и записать в него степени числа 3. 
Вывести на экран все компоненты числа с четным номером}
 
var
  f: file of real;
  i, n, l: integer;
  x: real;
 
begin
  assign(f, '1.dat'); 
  rewrite(f);
  write('Количество чисел ');readln(n);           
  l := 0;
  for i := 0 to n-1 do 
  begin
    write('ведите степень числа 3 у ', i, ' компонента ');
    readln(x);
    x := Power(3, x);
    write(f, x);
  end; 
  close(f); 
  reset(f);
  while l < filesize(f) do         
  begin
    read(f, x);
    l := l + 2;
    seek(f, l); 
    writeln(x, ' ');
     end;
  close(f);
  end.

var
  f: file of real;
  i, n, l: integer;
  x: real;
begin
  assign(f, '1.dat');
  rewrite(f);
  write('Количество чисел ');
  readln(n);
  l := 0;
  for i:=1 to n do
   begin
    write('ведите степень числа 3 у ', i, ' компонента ');
    readln(x);
    x:=Power(3,x);
    write(f,x);
  end;
  reset(f);
  writeln('Созданный файл');
  while not eof(f) do
   begin
    read(f,x);
    write(x,' ');
   end;
  writeln;
  reset(f);
  writeln('Элементы с четными номерами');
  for i:=0 to filesize(f)-1 do
   begin
    read(f,x);
    if odd(i) then  write(x,' '); //если индекс нечетный, номер четный
   end;
 close(f);
end.