Помогите правильно написать программу=))) Смотреть комментарии в программе=)))

Program Z; {Дан одномерный массив A[N].Найти max(a2,a4,...a2k)+min(a1,a3,...a(2k+1))}
Const n=5;{Количество элементов массива}
Type massive=array[1..n] of integer;
Var a:massive; i,max2k:integer;
Procedure Random_mas(var a:massive);
Var i:integer;
Begin
Randomize;
For i:=1 to n do
a:=-30+random(61);
End;
procedure Print_mas (a:massive);
Var i:integer;
Begin
For i:=1 to n do
Write(a,' ');
Writeln();
End;
Begin
Random_mas(a);
Print_mas(a);
Max2k:=A[2];
For i:=4 to n do {Надо правильно написать как меняется i(от 4 до ...)так чтобы выводилось max(a2,a4,...a2k)}
If A>max2k
Then max2k:=A;
i:=i+2;
Writeln('max(a2,a4,...a2k',max2k);
End.