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

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 lt; a[i]) then       max := a[i];    end;  end;  writeln();  writeln(max);  end.