дан массив из n элементов. в нем четные числа поменять на

Const n = 5; // задаем количество элементов массива(к примеру 5)
var
a: array [1..n] of integer;
i : integer;
begin 
 for i:= 1 to n do   
writeln(a[i]);// вывод начального массива 
for i:= 1 to n do 
begin 
if a[i] mod 2 = 0 then a[i] := 0 else a[i] := -1;// замена четных и нечетных частей  writeln(a[i]); // вывод нового массива 
end;
end.