Ираспечатайте в столбик одномерный массив следующим образом а(1)=1 а(2)=-1 а(3)=1 а(4)=-(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.

Тестовое решение:

Число элементов массива
10
a(1)= 1
a(2)= -1
a(3)= 1
a(4)= -1
a(5)= 1
a(6)= -1
a(7)= 1
a(8)= -1
a(9)= 1
a(10)= -1