Помогите пожалуйста!!! Составить программу в которой значение каждого элемента массива равно раннее введённому значению минус порядковый номер

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ ".../Отделы/Обмен/", Приём;

ПЕР
  массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
  сч: ЦЕЛ;

УКАЗ
  СОЗДАТЬ(массив, Приём.Число());
  ОТ сч := 0 ДО РАЗМЕР(массив^) - 1 ВЫП
    Вывод.Цепь(" ");
    массив[сч] := Приём.Число() - сч
  КОН

КОН Задание.