Найти максимальный элемент массива под четным индексом - Turbo Pascal

Формулировка задачи:

Заполнить массив элементами на интервале [30..-15] ввести элементы на экран, найти максимальный элемент под четным индексом

Решение задачи: «Найти максимальный элемент массива под четным индексом»

Листинг программы

const
  n = 10;
 
var
  i, max: integer;
  a: array [1..n] of integer;
 
begin
  randomize;
  max := -15;
  for i := 1 to n do
  begin
    a[i] := random(46) - 15;
    write(a[i]:4);
    if not (odd(i)) and (a[i] > max) then 
      max := a[i]
  end;
  writeln;
  writeln('Max: ', max);
end.

Объяснение кода листинга программы

Объявляются константа n типа integer со значением 10, переменные i, max типа integer и массив a типа array [1..n] of integer.
Задается начальное значение max равное -15.
В цикле for перебираются все элементы массива a от i=1 до i=n.
Каждый элемент массива a инициализируется случайным числом в диапазоне от 0 до 45 (включительно) с помощью функции random(46) и вычитанием 15, присваиванием полученного значения элементу массива a[i].
С помощью функции write(a[i]:4) выводится на экран значение элемента a[i] в шестнадцатеричной системе счисления.
С помощью условного оператора if проверяется, является ли индекс i четным числом и если да, то сравнивается текущее значение элемента a[i] с текущим значением max. Если a[i] больше max, то max присваивается значение a[i].
По завершении цикла for выводится символ новой строки с помощью функции writeln.
Выводится на экран максимальное значение max с помощью функции writeln('Max: ', max).