Дан массив из n элементов. в нем четные числа заменить на 0, а нечетные на -1 ,вывести на экран монитора содержимое массива до обработки и после обработки

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.