Найти все неповторяющиеся элементы двумерного массива

const
    N = 6;
    M = 3;
var
    i, j, k, un: Byte;
    uniqs: Array[1..N*M] Of Integer;
    ar: Array[1..N, 1..M] Of Integer;
    isUniq: Boolean;
begin
    un := 0;
    for i := 1 to N do
    begin
        for j := 1 to M do
        begin
            Write('ar[', i, '][', j, ']=');
            ReadLn(ar[i, j]);
            isUniq := True;
            k := 1;
            while ((k <= un) And (isUniq)) do
            begin
                isUniq := (uniqs[k] <> ar[i, j]);
                Inc(k);
            end;
            if (isUniq)
            then
            begin
                Inc(un);
                uniqs[un] := ar[i, j];
            end;
        end;
        WriteLn;
    end;
    Write('Неповторяющиеся элементы:');
    for k := 1 to un do
        Write(' ', uniqs[k]);
    WriteLn;
end.

  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to m do Write(' ',ar[i,j]:5); WriteLn;
  end;