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

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

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

|1|5|4|5|6|7|8|
-- функция должна "сообщить", что он неуникальный

а для:

|1|15|4|5|6|7|8|
-- что уникальный.

program lesson15_10;

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

function unique(const a: myArr): string;
var
    i, j: integer;
begin
    j := 1;
    for i := low(a) to high(a) - 1 do
    begin
        while j < high(a) do
        begin
            if a[i] = a[j + 1] then
            begin
                result := 'not unique';
                exit;
		    end
	        else
                result := 'unique';
            j := j + 1;
		end;
        j := i + 1;
	end;
end;

var
    arr: myArr;
    i: integer;
begin
    randomize();
    for i := low(arr) to high(arr) do
    begin
        arr[i] := 1 + random(15);
        write(arr[i], '|');
	end;

    writeln();
    writeln(unique(arr));

    readln();
end.