Найти максимальный элемент среди элементов, имеющих нечетные индексы, расписать В ПАСКАЛЕ. Нужно срочно

Нужно исправить:

For i:=1 to n div 2 do
For i:=1 to n div 2 + n mod 2 do

> Найти
> Нужно срочно
Пыл умерь. Поверь, никого не волнует, что тебе нужно и насколько это срочно. Будь вежлив и люди к тебе потянутся.