Помогите оставить программу в Паскале:

Дан одномерный массив заменить все чётные элементы массива нулём

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016begin  var a:=ArrRandom(ReadInteger('n='),1,99);  a.Println;  for var i:=0 to a.Length-1 do    if Odd(i) then a[i]:=0;  a.Printlnend.Тестовое решение:n= 1586 25 63 95 28 78 30 41 26 3 52 30 46 74 8486 0 63 0 28 0 30 0 26 0 52 0 46 0 84