,,ввести с клавиатуры последовательность из n. целых чисел и найти максимальное число среди элементов . Стоящих на четных местах

Program ArrayMax;Const n = 10;Var a: Array [1..n] of Integer; i, b: Integer;BeginWriteLn('Введите ', n, ' целых чисел через пробел и нажмите Enter');For i := 1 To n DoRead(a[i]);b := a[2];For i := 1 To n DoIf (i Mod 2 = 0) And (a[i] > b) Thenb := a[i];Write('Результат: ', b);End.