Файл F заполнить 300-тами случайными вещественными числами. Найти наибольшее среди значений компонент файла F с четными номерами — Pascal(Паскаль)

uses crt;
var f:text;
    a,mx:real;
    i,imx:integer;
begin
clrscr;
randomize;
assign(f,'file1.txt');
rewrite(f);
for i:=1 to 300 do
 begin
  a:=10*random;
  write(f,a:5:2);
 end;
reset(f);
read(f,a);{читаем первое число, оно нам не нужно}
read(f,mx);{читаем второе, пока это максимум}
i:=2;imx:=2;{его номер}
while not eof(f) do
 begin
  i:=i+1;
  read(f,a);
  if(i mod 2=0)and(a>mx) then
   begin
    mx:=a;{максимальный}
    imx:=i;{его номер}
   end;
 end;
close(f);
write('Максимальный из четных=',mx:0:2,' его номер=',imx);
readln
end.