Цикл задача

[aUxbl4]

Довольно простая задача, но не могу понять .
Задача Pascal.
Создайте и распечатайте в строчку одномерный массив длинной N следующим образом: A(1)=14, A(2)=15, A(3)=16, A(4)=-17, A(5)=-18, A(6)=-19, A(7)=20, A(8)=21, A(9)=22 ....?
Заранее спасибо.

[GetMax]

Begin
   Readln(n);
    j:=14;
    k:=1;
    chet:=false;
    for i := 1 to N do
    Begin
      if chet then j:= j*(-1);
      Write(j:4);
      if j < 0  then j:= j*(-1);
      inc (j);
      if (k mod 3 = 0) and not (chet) then chet:=true
      else
      if (k mod 3 = 0) and (chet) then chet:=false;
      inc(k)
    End;
    Readln
End.