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

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

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

type myArr  = array[1..7] of integer;
var a: myArr;
   i: integer;
   min,max:integer;

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;

function cravnenie1(a: myArr):integer;
var i,i2:integer;
    c:boolean;
begin
  c:=true;
  for i:=low(a) to high(a) do
    for i2:=(i+1) to high(a) do
      if a[i]=a[i2] then
        begin
          c:=false;
          writeln ('kod ne unicalen',' ',a[i],' v ctroke ',i,' ravno ',a[i],' v ctroke ',i2);
        end;
    if (c) then
      writeln ('kod  unicalen');
end;


begin
  randomize();
  min := 1;
  max := 15;
  for i:=low(a) to high(a) do
    a[i] := min + random(max - min + 1);
  writeArr(a,'original array: ');
  cravnenie1 (a);
  readln();
  writeln ('End');
end.    

Вывод консоли:

original array:
12 11 14 4 15 6 8
kod  unicalen