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

uses crt;
const n=10;
var a:array[1..n] of real;
    i,j:integer;
    f:text;
    max:real;
begin
ClrScr;
Randomize;
Assign(f,'file.txt');
Rewrite(f);
for i:=1 to n do
 a[i]:=-10+random(50);
for i:=1 to n do
 Write(f,a[i]:5:1);
close(f);
max:=a[2];
for i:=1 to n do
  if i mod 2=0 then
   begin
    if a[i]>max then
     max:=a[i];
 end;
Writeln('Max ',max:0:1);
Readln;
end.