В массиве из 10 случайных чисел поменять местами все четные на 0 и вывести получившийся массив на экран

program p1;const  n=10;var  a:array[1..n] of integer;     i:integer;begin  randomize;  for i:=1 to n dobegin              a[i]:=random(10);              if (a[i] mod 2)=0 then a[i]:=0;end;for i:=1 to n dobegin              writeln(a[i]);end;        end.