В трехмерном массиве найти элементы, встречающиеся однажды

[Slap]

Здравствуйте! Приведу пример для ясности)
Есть массив a[i,j,z], где i,j=2, z=n (n<=4)
a[1,1]=1,2,3,4
a[1,2]=1,2,3
a[2,1]=1,3
a[2,2]=1,5
В нем числа 5 и 4 встречаются всего 1 раз
вот мой код

for i:=1 to 2 do
  for j:=1 to 2 do
   s:=s+mas[i,j]; {в mas храним n для каждого i и j) 
   for k:=1 to 2 do
     for r:=1 to 2 do
      for z:=1 to mas[k,r] do
      begin
      q:=0; {счетчик, который считает сколько раз мы сравнивали данный элемент с остальными, когда мы прошлись по каждому элементу и не нашли данного - то значит мы нашли искомые элементы (по моему алгоритму)}
      for i:=1 to 2 do
       for j:=1 to 2 do
        for e:=1 to mas[i,j] do
        begin
           if not ((i<>k) and (j<>r)) and (a[i,j,e]=a[k,r,z]) then
           break;
         inc(q);
       {что дальше?}

Подскажите, пожалуйста, как нужно дописать этот код.
Если есть идеи получше, то обязательно напишите

[Кодокопатель]

Объясни подробнее что нужно сделать.

[Slap]

Сообщение от Кодокопатель

Объясни подробнее что нужно сделать.

Ну я же привел пример) В том примере числа 5 и 4 не повторяются в остальных элементах трехмерного массива, в отличие от цифр 1, 2 и 3, которые встречаются в массиве 4,2 и 3 раза соответственно. Нужно найти не повторяющиеся числа. Сложность в том, что размерность массива n (третьего внутри трехмерного) не постоянная. Поэтому для каждой ячейки приходится хранить ее размерность в другом массиве (mas).
Теперь понятно?)

[Slap]

Все, сам уже разобрался. Ну все равно спасибо

[Serge_Bliznykov]

Slap
1) что у Вас за Паскаль? TurboPascal 7.x ?..

2) приведите, пожалуйста, пример объявления данных

3) а почему не решились выложить пример с заполнением массивов тестовыми данными?..

4) зачем Вы считаете длину сумму s:=s+mas[i,j] ?

Алгоритм здесь простой, как топор.
взяли I,J,E-й элемент. вызвали функцию перебора.
В ней перебрали все элементы с 1,1,1 до 2,2,ZZZ, исключая элемент с текущими индексами (I,J,E) - если значение совпало - сразу прерываем цикл, выходим из функции и возвращаем false. Если дошли до конца цикла - возвращаем из функции true
В основном цикле печатаем найденное значение, как уникальное. (при желании тут же можно и индексы напечатать)
примерно так это будет

type 
  Arr3d = array[1..2,1..2,1..20] of integer;
  ArrMas = array[1..2,1..2] of integer; 

var a : Arr3d;
  mas : ArrMas;
  i,j,e : integer;

function ElementIsUniq(x0,y0,z0 : integer) : boolean;
var x,y,z : integer;
begin
  ElementIsUniq := false;
  for x:=1 to 2 do
    for y:=1 to 2 do
      for z:=1 to mas[x,y] do
        if (x<>x0) or (x<>y0) or (z<>z0) then
          if a[x0,y0,z0] = a[x,y,z] then 
               {не уникальное - выходим}
               Exit;
  {если прошли цикл и не вышли - значит значение уникальное
    возвращаем TRUE}
  ElementIsUniq := true;
end; {конец функции}

begin
  {тут заполнение исходных данных....}
   

  {поиск уникальных значений}
  for i:=1 to 2 do
    for j:=1 to 2 do
      for e:=1 to mas[i,j] do
        if ElementIsUniq(i,j,e) then 
          WriteLn('Found uniq value = ', a[i,j,e], ' with indexes: ',i,j,e);
  readln;
end.

добавлено
значит я зря всё это писал?...