Дан массив из 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.