Дана последовательность из n вещественных чисел. Записать все эти числа в файл. Вывести на экран все компоненты файла с нечетными номерами, большие заданного числа — Pascal(Паскаль)

Program Zadacha;
uses crt;
const
  n = 5;
var
 a,x:real;
 i:integer;
 rf: file of real;
 
begin
 clrscr;
 assign(rf,'realf.dat');
 rewrite(rf);
 for i:=1 to n do begin
    write('Vvedite ',i,'-e chislo: ');readln(a); write(rf,a);
 end;
 close(rf);
 write('Vvedite chislo: '); readln(x);
 assign(rf,'realf.dat');
 reset(rf);
 for i:=1 to n do begin
    read(rf,a);
    if (i mod 2 =1) and (a>x) then write(a:5:2);
 end;
 close(rf);
 readkey;
end.