Як виконується наведений фрагмент алгоритму

// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var s:=a.Distinct.OrderBy(x->x).Reverse.Skip(1);
  if s.Count>0 then begin
    var i:=a.FindIndex(t->t=s.First);
    Writeln('Искомый элемент равен ',a[i],' его порядковый номер ',i+1)
    end
  else Writeln('Нет искомых элементов')
end.

Пример
n= 13
-7 -2 -32 9 21 -31 34 -34 27 -35 11 7 -10
Искомый элемент равен 27 его порядковый номер 9

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=9;
  Writeln('*** Исходная матрица ***');
  var a:=new real[n,m];
  Randomize;
  for var i:=0 to n-1 do
    for var j:=0 to m-1 do
      a[i,j]:=Random(-100,100)/10;
  a.Println(5,1); Writeln(5*a.ColCount*'-');
  var col:=1;
  Write('Средние арифметические: ');
  while col<=m-1 do begin
    Write(a.Col(col).Average:0:2,' ');
    col+=2
    end;
  Writeln
end.

Пример
Количество строк в матрице: 6
*** Исходная матрица ***
  9.6 -4.5  0.2 -7.6  5.4 -4.8 -0.1 -8.6  9.3
 -3.6 -3.3 -4.6 -4.6 -2.0 -7.3  5.4  5.1 -9.3
  3.2  1.0 -8.1 -5.9 -6.1  9.8 -0.7 -2.5 -1.5
 -3.0-10.0 -7.4 -6.7  9.6 -2.1  9.3 -4.6 -3.8
  9.7 -7.8  3.1  0.9 -3.0  5.4  9.7  2.9 -9.6
 -3.3  4.4 -1.7 -5.0  8.5  0.9 -3.9 -3.4  1.3

Средние арифметические: -3.37 -4.82 0.32 -1.85