в массиве из 10 целых чисел заменить все элементы, стоящие на нечетных местах, на максимальный элемент(Паскаль)

const n=10;var a:array[1..n] of integer;max,i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(51); write(a[i],' '); end;writeln;max:=a[1];for i:=2 to n do if a[i]>max then max:=a[i];writeln('max = ',max);for i:=1 to n do if i mod 2=1 then a[i]:=max;for i:=1 to n do write(a[i],' ');writeln;end.Пример:17 25 32 37 31 46 12 22 29 7max = 4646 25 46 37 46 46 46 22 46 7