Помогите пожалуйста))))Создайте и распечатайте в столбик одномерный массив следующим образом а(1)=1 а(2)=-1 а(3)=1 а(4)=-1......а(n)=-1

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)var a:array of integer;i,n:integer;begin  writeln('Число элементов массива ');  readln(n);  setlength(a,n+1);  for i:=1 to n  do begin    if a[i]<>i mod 2 then a[i]:=1 else a[i]:=-1;    writeln('a(',i,')= ',a[i]);  end;end.Тестовое решение:Число элементов массива 10a(1)= 1a(2)= -1a(3)= 1a(4)= -1a(5)= 1a(6)= -1a(7)= 1a(8)= -1a(9)= 1a(10)= -1