Заполнить массив из 1000 частей значениями индексов массива последующим образом:все

Заполнить массив из 1000 частей значениями индексов массива следующим образом:
все нечетные элементы должны быть отрицательными, а четные положительными.
(А[1] = -1, А[3] = --3, А[5] = -5, А[7] = -7, А[9] = -9,.., А[999] = -999, А[2] = 2, А[4] = 4, А[6] = 6, А[8] = 8, А[10] = 10,., А[1000] = 1000.) Вывести массив в строчку.
Сделать в Pascal ABC