Помогите пожалуйста

// PascalABC.NET 3.3

begin
  var a:=Arr(19, -78, -4, 0, 396, 996, 4, -3, 2, 0, 23);
  a.Println;
  Writeln('Сумма положительных частей = ',a.Where(x-gt;(xgt;0)).Sum);
  Write('Среднее арифметическое частей, кратных 4 = ');
  Writeln(a.Where(x-gt;(x mod 4=0)).Average);
  Write('Элементы, порядковые номера которых кратны 3: ');
  a.Where((x,i)-gt;(i+1) mod 3=0).Println;
  Write('Индексы частей, значения которых нечётны: ');
  var b:=a.IndexesOf(x-gt;(x mod 2lt;gt;0)).ToArray;
  b.Transform(x -gt; x+1);  b.Println;
  Writeln('max+min = ',a.Max+a.Min);
end.

Итог:
19 -78 -4 0 396 996 4 -3 2 0 23
Сумма положительных частей = 1440
Среднее арифметическое частей, кратных 4 = 232
Элементы, порядковые номера которых кратны 3: -4 996 2
Индексы частей, значения которых нечётны: 1 8 11
max+min = 918