Задача 10 урок 15

Задача 10 урок 15

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

type myArr = array[1..7] of integer;
var a: myArr;
 i, s, h: integer;

begin
 s := 0;
 randomize();
 for i:=low(a) to high(a) do  //формирование массива
   begin
     a[i]:= random(15) +1;
     write('| ',a[i]);
   end;
 writeln('|');
 for i:=1 to 7 do
   for h:=1 to 7 do
     if a[i] = a[h] then
       s := s+1;
   if s > 7 then        //если больше 7 совпадений
     writeln('NEunikalniy massiv')
   else
     writeln('Unikalniy massiv');

 readln;
end.