Дан Массив A Размера N.Найти максимальный элемент из его элементов с нечетными номерами — Pascal(Паскаль)

const n=10;
var a:array[1..n]of integer;
    i,imax:integer;
begin
randomize;
for i:=1 to n do
begin
    a[i]:=random(20)-10;
    write(a[i]:4);
end;
writeln;
imax:=1;
for i:=3 to n do
if (odd(i))and(a[i]>a[imax]) then imax:=i;
writeln('Максимальный элемент: ',a[imax]);
end.