Получить одномерный массив, состоящий из элементов массива А, которые превышают по модулю число - PascalABC.NET

Формулировка задачи:

Задан массив А[N,M]. Получить массив одномерный массив В[], состоящий из элементов массива А, которые превышают по модулю число, введенное пользователем (предварительно необходимо определить количество элементов в массиве В[]).

Решение задачи: «Получить одномерный массив, состоящий из элементов массива А, которые превышают по модулю число»

Листинг программы

begin
  var a:=MatrRandomInteger(ReadInteger('n ='),ReadInteger('m ='),-99,+99);
  WriteLn('а :'); a.Println;
  var x:=ReadInteger('Число =');
  var b:=a.ElementsByRow.Where(v->abs(v)>x).ToArray;
  Write('b : '); b.Println;
end.

Объяснение кода листинга программы

Сначала мы объявляем переменную a типа массив целых чисел, которая инициализируется случайными целыми числами от -99 до +99, используя функцию MatrRandomInteger.
Затем мы выводим массив a на экран с помощью функции WriteLn и оператора Println.
Далее мы запрашиваем у пользователя число x с помощью функции ReadInteger, которое будет использоваться для фильтрации элементов массива a.
Мы используем метод ElementsByRow для получения элементов массива a по строкам.
Затем мы применяем фильтр к элементам массива a с помощью метода Where, используя лямбда-выражение, чтобы отфильтровать только те элементы, абсолютное значение которых больше, чем значение переменной x.
Полученный отфильтрованный список элементов преобразуется обратно в массив с помощью метода ToArray.
Наконец, мы выводим полученный массив b на экран с помощью функции Write и оператора Println.