Программа в pascal. дан массив a размера n. найти максимальный элемент из его элементов с нечетными номерами: a1, a3, a5, … .

Program fff;
const  n = 5;  var  a : array[1..n] of integer;  i, max : integer;begin  for i := 1 to n do begin    a[i] := random(101);     write(a[i], ' ');  end;  max := a[1];  for i := 2 to n do begin    if not (i mod 2 = 0) then begin    if (max < a[i]) then       max := a[i];    end;  end;  writeln();  writeln(max);  end.