неповторяющиеся элементы, двухмерный массив Опции

[-=MasteR=-]

Народ, помогите плиз! перерыл весь форум, но ничего подобного не нашел. Задача следующая:
Найти все неповторяющиеся элементы двумерного массива целых чисел.
Если можно, то без процедур и функций.

[neic]

А сам что-нибудь делал?

В массиве есть целые и вещественные числа?

[Malice]

Можно тупо перебрать, типа того:

.....здесь заполнение и все такое...
for i:=1 to n do
  for j:=1 to n do begin
    b:=true;
      for k:=1 to n do
          for l:=1 to n do
            if not((i=k) and (j=l)) and (x[i,j]=x[k,l]) then b:=false;
    if b then write (x[i,j],' ');
  end;

[-=MasteR=-]

Спасибо огромное!!!!