Дан массив целых чисел А(10). Элементы с нечетным индексом поменять минимальным

program zz1;
const n = 10; // количество элементов указываем в массиве
Var i, min :integer; // описываем переменные целочисленного типа
Var a: array [1..n] of integer;

begin
for i:=1 to n do // случайным образом записываем в массив числа
a[i] :=random (201)-60;
for i:= 1 to n do // выводим числа на экран
write (a[i], );
writeln;

min:= 100000; // указываем значение изначальное для мин
for i:=1 to n do // организуем перебор всех чисел массива
if a[i] lt; min then min:= a[i]; // если число из массива меньше малого, то записываем его в минимальное
writeln ( малый элемент = , min);
for i:=1 to n do
if i mod 2 = 1 then a[i]:=min;
for i:=1 to n do //выводим массив на экран
write (a[i], );
end.