Массивы

[margarit]

Помогите пожалуйста с решением. Дано число N и массив a(k), k=от 1 до N. Среди элементов данного массива имеются повторяющиеся. Получить массив b(i), включив в него по одному из повторяющихся элементов массива a(k) и все элементы массива a(k), встречающиеся в нем по одному разу

[filvika]

const
    maxsize = 32767;
var
    n, i, j, count: integer;
    a, b: array [1..maxsize] of byte;
    unique: boolean;
begin
    write('Enter n [1..',maxsize,'] ..');
    read(n);

    writeln('a[i]:');
    randomize;
        for i := 1 to n do
        begin
            a[i] := random(10);
            write(a[i], ' ');
        end;

    b[1] := a[1];
    count := 1; //  Всего эл-тов в массиве B

        for i := 2 to n do  //  Цикл по массиву A
        begin
            unique := true;
                for j := 1 to count do  //  цикл по B
                    if b[j] = a[i] then
                    begin
                        unique := false; //  Элемент повторяется
                        break;
                    end;

                if unique = true then
                begin
                    inc(count);
                    b[count] := a[i];
                end;
        end;

    writeln;
    writeln('b[i]:');
        for i := 1 to count do
            write(b[i], ' ');

    writeln;
    writeln('Размер массива B = ', count);

    readln;
end.