Написать программу, используя динамическое выделение памяти. дан массив а из n целых чисел. вывести на печать только те числа, для которых выполняется условие аi ≤ i, где i – номер элемента массива

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),0,30); a.Println;
  for var i:=0 to a.Length-1 do
    if a[i]<=i+1 then Print(a[i])
end.

Пример
n= 20
18 19 0 24 24 19 15 1 25 11 15 19 15 12 2 2 7 19 20 12
0 1 12 2 2 7 12

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

ПЕР
  A: ДОСТУП К РЯД ИЗ ЦЕЛ;
  N, сч: ЦЕЛ;

УКАЗ
  N := Приём.Число();
  СОЗДАТЬ(A, N);
  ОТ сч := 0 ДО N - 1 ВЫП
    A[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * N))
  КОН;

  ОТ сч := 0 ДО N - 1 ВЫП
    ЕСЛИ A[сч] <= сч ТО
      Вывод.ЧЦел("%d ", A[сч], 0, 0, 0)
    КОН
  КОН

КОН Задание.