Безотлагательно!!! Помогите с массивом!!! надобно написать программный код на 13 задание.

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var a := ArrRandom(13, -25, 25);

 a.Println;

 var ai := a.IndexesOf(t -gt; Abs(2 * t) gt; 30).ToArray;

 if ai.Count gt; 0 then

 begin

   Println('Отобрано частей:', ai.Count);

   foreach var t in ai do

     'a[t+1]=a[t] '.Print;

   Println

 end

 else Println('Нет разыскиваемых частей')

end.

-1 -14 -19 6 -3 -24 13 17 25 -5 2 -18 -14

Отобрано частей: 5

a[3]=-19 a[6]=-24 a[8]=17 a[9]=25 a[12]=-18