Cоставить вектор различных элементов

var
    a,b:array [1..100] of integer;
    i,z,n,k,x,j:integer;
 
begin
        writeln('Введите длину массива: ');
        readln(n);
        writeln('Введите элементы массива: ');
        for i:=1 to n do
            readln(a[i]);
        i:=2;
        z:=1;
        b[1]:=a[1];
        while i<=n do
        begin
                k:=0;
                x:=0;
                for j:=1 to n do
                    begin
                            if a[i]=a[j] then
                            k:=k+1;
                    end;
                if k=1 then
                    begin
                            z:=z+1;
                            b[z]:=a[i];
                        end
                        else
                for j:=1 to z do
                    begin
                            if a[i]<>b[j] then
                            x:=x+1;
                    end;
                if x=z then
                    begin
                            z:=z+1;
                            b[z]:=a[i];
                    end;
                i:=i+1;
        end;
        writeln('Различные элементы массива: ');
        for i:=1 to z do
            write(b[i]);
        readln;
end.