ПОМОГИТЕ!!! PASCAL.В одномерном массиве, состоящем из n вещественных частей,

PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программка не работает, обновите версию!

procedure Println(Self:array of real); extensionmethod;
begin
  Self.Batch(5).foreach(s-gt;
      begin foreach var p in s do Write(p:15:10); Writeln end);
  Writeln(Min(15*(Self.Count div 2),38)*'- ')
end;

begin
  var m:=ArrGen(ReadInteger('n='),i-gt;Cos(i),1); m.Println;
  var (a,b):=ReadReal2('Введите границы A B:');
  Writeln('Число элементов на промежутке [',a,',',b,'] одинаково ',
    m.Where(t-gt;t.Between(a,b)).Count);
  Write('Сумма частей, расположенных после максимального, равна ');
  var imax:=m.IndexMax;
  (m?[imax+1:].Sum).Println;
  Writeln('Элементы, упорядоченные по убыванию модулей');
  m:=m.OrderByDescending(t-gt;Абс(t)).ToArray; m.Println;
end.