В массиве случайных чисел из 17 элементов. Найти неповторяющиеся значения — Pascal(Паскаль)

uses crt;
const
  n=10;
var
  i,j,k,m:integer;
  b:array[1..100] of integer;
  a:array[1..17] of integer;
begin
clrscr;
randomize;
for i:=1 to 17 do
  begin
   a[i]:=random(n);
   write(a[i]:4);
  end;
writeln;
k:=1;
m:=0;
for i:=0 to n-1 do
  begin
    for j:=1 to 17 do
       if a[j]=i then m:=m+1;
    if m=1 then
             begin
               b[k]:=i;
               k:=k+1;
               m:=0;
             end
           else
             m:=0;
  end;
k:=k-1;
if k>=1 then
         for i:=1 to k do
            writeln('Не повтор ',b[i]:4)
       else
         writeln('Таких элементов нет');
readln;
end.