В матрице подсчитать сумму и количество элементов, меньших пяти

begin
  var arr: array of array of integer;
  var par:= ReadInteger('Введите размерность массива: ');
  var colvo: integer;
  var sum: integer;
  SetLength(arr, par);
  for var i:= 0 to arr.Length-1 do
    begin
      arr[i]:= ArrRandomInteger(par,-20,20).Println('; ').ToArray;
      arr[i]:= (arr[i].Where(x -> x <= 10).JoinIntoString+' '+arr[i].Where(x -> x > 10).Select(x -> x * 5).JoinIntoString).ToIntegers;
      sum += arr[i].Where(x -> x < 5).Sum;
      colvo += arr[i].Where(x -> x < 5).Count;
    end;
  Writeln;
  for var i:= 0 to arr.Length-1 do
    arr[i].Println('; ');
  Writeln('Сумма = ', sum, '    Количество = ', colvo);
end.

begin
  var par := ReadInteger('Введите размерность массива: ');
  var arr := Range(1, par).Select(i -> ArrRandomInteger(par,-20,20).Println(', ').ToArray).ToArray;
  Writeln;
  arr.Select(a -> a.Select(x -> (x > 10 ? x * 5 : x)).Println(', ').ToArray).ToArray;
  
  var flat := arr.SelectMany(x -> x).where(x -> x < 5);
  Writeln('Сумма = ', flat.Sum, '    Количество = ', flat.Count);
end.