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

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

{15 - 12 Напишите программу, которая будет заполнять массив из 10 элементов
случайными числами из диапазона от 0 до 20,
при этом в полученном массиве не должно быть одинаковых значений.}

const N = 10;

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

function NotUnique(arr: myArr; checkNum:integer): boolean;
var i:integer;
  begin
    for i:=1 to high(arr) do
        if (arr[i] = checkNum) then
          begin
            result:=true;
            break;
          end
        else
          result:=false;
  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
  arr: myArr;
  i,r: integer;
begin
  randomize;
  i:=1;
  repeat
    begin
      r:= random(20);
      if (NotUnique(arr, r)) then    // сравнение текущее\предыдущие
        continue
      else
         begin
           arr[i]:= r;
           i:=i+1;
         end;
    end;
  until (i > n);
  writeArr(arr,'unique array: ');
  writeln('over');
  readln();
end.

//unique array:
//11 9 17 14 18 5 16 10 7 15
//over