задача:в заданном векторе A необходимо умножить все его элементы, имеющие четные номера, на значение его максимального элемента.

так вот, максимальный элемент я нашел, вот только не знаю как умножить на него элементы с четными номерами.я пробовал вот так:
.......
for i:=1 to N do
begin
if i mod 2=0 then
B[i]:=A[i]*Max;
if (N>0) then writeln('vector B:');
for i:=1 to N do writeln('B[',i,']=',B[i]:1);
reaadln;
end;
end.
....но мне прога пишет все значения B[i] равными нулю, а вот если написать if mod 2=1 , тогда на максимальный элемент умножаются все элементы массива А, что мне не нужно.Помогите!!!!Как надо замутить прогу, чтобы макс. элемент умножался на элементы с четными номерами?