Сравнение на всем промежутке Опции

[~~Ангелочек~~]

Здравствуйте, подскажите пожалуйста, как можно реализовать такую вещь : если на всем протяжении цикла(а я там сравниваю) нет повторов, то записать, а если есть, то ничего не делать.

[Freedom]

Здравствуйте, подскажите пожалуйста, как можно реализовать такую вещь : если на всем протяжении цикла(а я там сравниваю) нет повторов, то записать, а если есть, то ничего не делать.

const n=10;
var a:array[1..n] of integer;
    i,j:integer;
    povt:boolean;
begin
  randomize;
  for i:=1 to n do a[i]:=random(10)+1;
  for i:=1 to n do write('a[',i,']=',a[i],' ');
  writeln;
  for i:=1 to n do  begin
   povt:=false;
   for j:=1 to n do
    If i<>j then If a[i]=a[j] then povt:=true;
   If povt=false then write(a[i],' ');
  end;
readln;
end.

программа заполняющая массив из n элементов случайными числами от 1 до 10, и выводит те числа которые не повторяются в массиве