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

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

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

type
    arr = array [1..7] of integer;
var
  a: arr;
  min, max, i: integer;
  function unikum(var mas: arr; x: integer):boolean;
  var y: integer;
  begin
    for x:= low(mas) to high(mas) - 1 do
       for y:= x + 1 to high(mas) do
          if mas[x] = mas[y] then
             result:= false;
  end;
begin
   randomize();
   min:= 1;
   max:= 15;
   for i:= low(a) to high(a) do
   begin
     a[i]:= min + random(max - min + 1);
     writeln(a[i]);
   end;
   writeln();
   if (unikum(a,i)) then writeln('Unikalen')
   else writeln('Ne unikalen');
   readln();
end.