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

const n = 10; var   a: array[1..n] of integer;   i, min: integer; begin   min := 20;   for i := 1 to n do begin     a[i] := random(20);     if(a[i] < min) then min := a[i];     write(a[i], ' ');   end;   writeln; writeln('Минимальный эл. массива: ', min);   for i := 1 to n do begin     if(i mod 2 <> 0) then a[i] := min;     write(a[i], ' ');   end; end.