Задание 10 Урок 15. Одномерные массивы

Урок 15. Одномерные массивы

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

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

function isUnique(arr: myArr):string;
var i,j:integer;
  flag:boolean;
begin
  for i:=1 to high(arr) do
    for j:=2 to high(arr) do
      if ((arr[i]=arr[j]) AND (i<>j)) then   // проверка на уникальность
        begin
          flag:=false;
          break;
        end;
  if (flag=false) then
    result:= 'array is not unique'
  else
    result:= 'array is unique';
end;

procedure writeArr(arr: myArr; msg:string);
var i:integer;
begin
    writeln(msg);
    for i:=low(arr) to high(arr) do
      write(arr[i], ' ');
    writeln();
   end;

var
  a: myArr;
  i: integer;
  n: string;
begin
  randomize;
  for i:=low(a) to high(a) do
    a[i]:= random(15);
  writeArr(a,'original array: ');
  n:=isUnique(a);
  writeln(n);
  writeln('over');
  readln();
end.

//original array:
//11 2 4 12 1 1 11
//array is not unique
//over

//original array:
//68 8 56 78 127 3 97
//array is unique
//over