Дан двумерный числовой массив размера N*M, необходимо вывести на экран только уникальные элементы

Const nmax=20;
Var A:array[1..nmax,1..nmax] of real;
    i,j,k,n,m:integer;
    flag:boolean;
Begin
    Randomize;
    Repeat
     write('Введите N: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    Repeat
     write('Введите M: ');
     readln(m);
    Until (m>0)and(m<=nmax);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(16)-8;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    For i:=1 to n do
    Begin
      write('В ',i,' строке уникальные элементы: ');
      For j:=1 to m do
      Begin
        flag:=true;k:=1;
        While (k<=m)and(flag) do
        Begin
          if (A[i,j]=A[i,k])and(j<>k) then flag:=false;
          k:=k+1;
        End;
        if flag then write(A[i,j],' ');
      End;
      writeln;
    End;
End.