Написать программу на паскале 20) Заменить k-й элемент одномерного массива на 0, если этот элемент четный и на 1 если он нечетный

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var k:=ReadInteger('k=')-1;
  a[k]:=a[k].IsEven?0:1; a.Println
end.


n= 20
77 8 10 -7 -45 55 -49 -89 28 55 -26 -28 -51 -61 -91 25 75 -18 33 -59
k= 5
77 8 10 -7 1 55 -49 -89 28 55 -26 -28 -51 -61 -91 25 75 -18 33 -59