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

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

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

|1|5|4|5|6|7|8|

-- функция должна "сообщить", что он неуникальный

а для:

|1|15|4|5|6|7|8|

-- что уникальный.

var i, j, k: integer;
a: array [1..7] of integer;
begin
  randomize();
  for i := 1 to 7 do a[i] := 1 + random(15);
  write('Исходный массив:   ');
  for i := 1 to 7 do write(a[i], ' ');
  writeln();
  for i := 1 to 7 do
   for j := 1 to 7 do
    if (a[i] = a[j]) and (i <> j) then
      begin
       k := 1;
       break;
      end;
  if k = 0 then write('Массив уникальный')
  else write('Массив неуникальный');
  readln();
end.