Помогите с задачей в паскале.

[sanёk]

В массиве, вещественных чисел, 20 элементов. Найти значения максимального из элементов массива, которые имеют четные номера.

[alex_fcsm]

uses crt;
const n=20;
var i,max:integer;
    a:array[1..n] of real;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
 a[i]:=random(100);
 write(a[i]:3:0);
 end;
writeln;
max:=2;
for i:=4 to n do
 if i mod 2=0 then if a[i]>a[max] then max:=i;
writeln(max);
end.