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

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

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

type
MyArr = array[1..7] of integer;

var a: MyArr;
min,max,g: integer;

function flag(b:MyArr): string;
var s,i,n: integer;
begin
s:=0;
     for i:=1 to 7 do
         for n:=1 to 7 do
             if b[i] = b[n] then s := s+1;
         if s > 7 then result:='no'
         else result:='yes';
end;

begin
randomize();

min:=1;
max:=15;

for g:=low(a) to high(a) do
begin
    a[g]:=min+random(max-min+1);
    write(a[g],' ');
end;

writeln();
writeln(flag(a));

readln();
end.