Проверка элементов матрицы на повторение

[-=aHTPoПоС=-]

Привет всем) Я вот уже 2 дня ломаю голову над вот этой задачей
"Проверить, все ли элементы массива различны." То есть пользователь вводит размерность матрицы, мы можем вывести её в StringGrid'е потом забиваем её рандомом целыми числами - это всё понятно, но вот как проверить все ли элементы этого массива различны.......??? Я уже голову сломал((

[DomiNick]

Может сравнить каждый со всеми остальными?

[-=aHTPoПоС=-]

Ну это понятно, но вот каким образом это сделать я как то не вкурю))

[VilAm]

FOR I:=1 TO N DO
FOR J:= 1 TO N DO
FOR K:= 1 TO N DO
FOR L:=1 TO N DO
IF A[I,J]=A[K,L] AND (J<>L) AND (I<>K) THEN 
BEGIN
WRITELN('ODINAKOVYE EST')
BREAK;
END;

[sadfeel]

может так:

b[1] := a[1];
k := 0;
for i:=1 to n do
begin
for j:=1 to i do
if a[i] = b[j] then continue;
inc(k);
b[k] := a[i];
end;