В массиве найдите малый и максимаксимальный элементы посреди частей с чётными

PascalABC.NET
Версия 3.3. сборка 1583 (25.11.2017)

var 
 n:integer;
 a:array[1..100] of integer;
begin
 write('Введите размер массива (nlt;100): ');readln(n);
 var max:=0;
 var min:=101;
 for var i:=1 to n do
 begin
  a[i]:=random(0,100);
  write(a[i],' ');
  if i mod 2=0 then
   if a[i]gt;max then max:=a[i]
   else
    if a[i]lt;min then min:=a[i];
 end;
 writeln;
 writeln('Наибольший - ',max);
 writeln('Малый - ',min);
 readln;
end.

Пример:

Введите размер массива (nlt;100): 10
15 32 90 97 35 62 52 37 5 63 
Наибольший - 97
Минимальный - 37