Даны целые числа a1,…,an. Получить все числа, которые входят в последовательность по одному разу — Pascal(Паскаль)

Program Zadacha18;
  var a:array[1..10000] of integer;
      i,j,n,c:integer;
  Begin
    readln (n);
    writeln('Исходная последовательность: ');
    write('(');
    for i:=1 to n do
    Begin
      a[i]:=random(18);
      write(a[i],' ')
    end;
  writeln(')');
  writeln('Элементы, входящие в последовательность 1 раз: ');
  for i:=1 to n do
  Begin
    c:=0;
    for j:=1 to i-1 do
    if a[i]=a[j] then
    inc(c);
    if c=0 then
    write(a[i], ' ')
  end;
  writeln
end.