Задача 12 Урок 15

Задача 12 Урок 15:

Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
Например для массива:

|1|5|4|5|6|7|8|

-- функция должна "сообщить", что он неуникальный

а для:

|1|15|4|5|6|7|8|

-- что уникальный.

program u15z12;
type mas=array [1..7] of integer;
var i:integer;
    a: mas;
function uni(e:mas): string;
var j,b,d:integer;
    c:string;
begin
  b:=0;
  for j:=low(e) to high(e) do
    for d:=low(e) to high(e) do
    begin
      if(e[d]=e[j]) then
      b:=b+1;
    end;
  if b>7 then    //если совпадений больше чем элементов массива
    c:='Neunik'
  else
    c:='Unik';
result:=c;
end;
begin
  randomize();
  for i:=low(a) to high(a) do     //заполняем массив случайными числами
  begin
    a[i] :=random(15);
    write(a[i],' ');
  end;
  writeln();
  write (uni(a));
  readln();
end.