Задан одномерный массив А целых чисел Составить новый одномерный массив В, в который нужно занести неповторяющиеся элементы массива А — Pascal(Паскаль)

uses
  crt;
const
  n=10;
var
  a,b:array[1..n]of integer;
  i,j,c,bmax:integer;
begin
  clrscr;
  bmax:=0;
  {задаем выводим}
  writeln('Первый массив:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    write(a[i]:2,' ')
  end;
  writeln(']');
  {находим и записываем}
  for i:=1 to n do
  begin
    c:=0;
    for j:=1 to bmax do
      if a[i]=b[j] then
        inc(c);
    if c=0 then
    begin
      inc(bmax);
      b[bmax]:=a[i]
    end;
  end;
  {выводим второй массив}
  writeln('Второй массив:');
  write('[ ');
  for i:=1 to bmax do
    write(b[i]:2,' ');
  writeln(']')
end.