Обработка элементов массива, удовлетворяющих некоторому условию

[sokol987]

Здравствуйте у меня проблемы с выполнением задач на тему массивы ( Паскаль ABC) я студент и у меня не очень хорошее положение, если я не принесу пару долгов по информатике, то буду под вопросом на отчисление

вот задача

Ввести одномерный массив , вывести его. Найти максимальный элемент среди элементов, стоящих на чётных местах, и найденным значением заменить все элементы массива, кратные 3 или 2. Преобразованный массив вывести на экран.

Буду благодарен за любую помощь...

[Mad_Cat]

const n=10;
var
vc:array[1..n] of integer;
i,j,max:integer;
begin
for i:=1 to n do begin
vc[i]:=random(n)+1;
write(vc[i],' ');
end;
writeln;
max:=vc[2];
i:=4;
while i<=n do begin
if vc[i]>max then max:=vc[i];
i:=i+2;
end;
For i:=1 to n do
begin
if (vc[i] mod 2 =0) or (vc[i] mod 3 =0) then vc[i]:=max;
 write(vc[i],' ');
 end;
readln;
end.

[sokol987]

Огромное спасибо!!!