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

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

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

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

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

а для:

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

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

program U15Z10;
var a: array [1..7] of integer;
    i,n,v: integer;
begin
  randomize();
  for i:=1 to 7 do
    begin
      a[i]:=random(15)+1;
      write(a[i],'|');
    end;
  writeln();
  for i:=1 to 7 do
    begin
      for n:=1 to (7-i) do
        begin
          if (a[i]<>a[i+n]) then
            v:=1
          else
            begin
              v:=0;
              break;
            end;
        end;
      if (v=0) then
        begin
          writeln('massiv NE ynikalniy');
          break;
        end;
    end;
  if (v=1) then
    writeln('massiv ynikalniy');
  readln();
end.