Подсчитать количество уникальных элементов в двумерном числовом массиве

begin
  var arr: array of array of integer;
  var par:= ReadInteger('Введите количество элементов массива: ');
  SetLength(arr,par);
  var Otv: set of integer;
  var HPar: set of integer;
  for var i:= 0 to arr.Length-1 do
    begin
      arr[i]:= ArrRandomInteger(par,-10,10).Println('; ').ToArray;
      foreach var x in arr[i] do
        begin
          if x in Hpar
            then
              Otv += [x];
          Hpar += [x];
        end;
    end;
  Writeln;
  for var i:= 0 to arr.Length-1 do
    arr[i].Where(x -> not (x in Otv)).Println('; ');
end.

/// Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку
function Println<T>(Self: sequence of T; delim: string): sequence of T; extensionmethod;
begin
  Self.Print(delim);
  Writeln;
  Result := Self;  
end;

Метод фильтрации Where
Описание методов
Методы приведены для последовательности sequence of T.
 
function Where(predicate: T->boolean): sequence of T; 
      Выполняет фильтрацию последовательности значений на основе заданного предиката. Возвращает подпоследовательность значений исходной последовательности, удовлетворяющих предикату.  
function Where(predicate: (T,integer)->boolean): sequence of T; 
      Выполняет фильтрацию последовательности значений на основе заданного предиката с учётом индекса элемента. Возвращает подпоследовательность значений исходной последовательности, удовлетворяющих предикату.  
 
Пример 
begin
  var a := Arr(1,2,3,5,6);
  a.Where(x -> x mod 2 = 0).Println; // 2 6
end.

uses arrays;
begin
  var par := ReadInteger('Введите количество элементов массива: ');
  // создаем массив, каждым элементом которого является в свою очередь массив случайных чисел
  var mx := Range(1, par).Select(i -> ArrRandomInteger(par,-10,10).Println('; ').ToArray).ToArray;
  write('Уникальные элементы: ');
  // для получения уникальных - "выравниваем" матрицу (превращаем ее из двумерного массива в одномерный),
  // группируем элементы по значению, и оставляем только те, счетчик количества которых = 1, они - уникальны в массиве
  var unique := mx.SelectMany(x -> x).GroupBy(i -> i).Where(g -> g.Count = 1).Select(g -> g.Key).Println(', ').ToArray();
  // Все что осталось - вывести количество:
  writeln('Количество уникальных = ', unique.Count);
end.

uses System.Collections.Generic;
begin
  var par := ReadInteger('Введите количество элементов массива: ');
  var st := new SortedSet <Integer>;
  var mx := Range(1, par).Select(i -> ArrRandomInteger(par, -10, 10).Println('; ').ToArray).ToArray;
  foreach var x in mx do
    foreach var y in x do st.Add(y);
  Writeln('Количество уникальных = ', st.Count);
end.

var unique := mx.SelectMany(x -> x).GroupBy(i -> i).Where(g -> g.Count = 1).Select(g -> g.Key).Println(', ').ToArray();