Сформировать массив по правилу

program z;
uses crt;
var i,n:integer;
x,y:array [1..100] of integer;
begin
     repeat
           write('Ââåäèòå êîë-âî ýëåìåíòîâ ìàññèâà: ');
           readln(n);
           if n<=0
              then
                  writeln('Вы задали неверный параметр! Ïîâòîðèòå ïîïûòêó!');
           writeln;
     until n>0;
     clrscr;
     randomize;
     write('Ñëó÷àéíûé ìàññèâ X[N]: ');
     for i:=1 to n do
         begin
              x[i]:=trunc((20-(-20))*random+(-20));
              write(x[i],' ');
         end;
     writeln;
     write('Ñôîðìèðîâàííûé ìàññèâ Y[N]: ');
     for i:=1 to n do
         begin
              y[i]:=x[i]+i;
              write(y[i],' ');
         end;
     readln;
end.

var x,y:array[1..10]of integer;
i,n:integer;
begin
read(n);
for i:=1 to n do
  begin
    read(x[i]);
    if i mod 2=0 then y[i]:=-x[i]+i
    else y[i]:=x[i]+i;
    write(y[i]:3);
  end;
end.