Задание в паскале

[Pchelka1992]

Задание состоит из двух частей. Реализовать задачу на ЯП Паскаль и в табличном редакторе Excel.
Дан одномерный массив A [ N ]. Найти
ma x( a 2 , а 4 , . . , a2k) + min(a1, a3, ..., a2k+1).
Помогите пожалуйста..очень нужно

[Mad_Cat]

{паскаль}
max:=a[2];min:=a[1];
for i:=3 to n do
begin
if not odd(i) then
begin
if a[i]>max then max:=a[i];
end
else
if a[i]<min then min:=a[i];
end;
writeln(max+min);