Как реализовать этот код лучшим образом?

var N, i, l, k,j:integer;
	A: array [1..100] of longint;
    B: array [1..100] of longint;
begin
    l:=0;
	read(N);
    for i:=1 to N do 
    	begin
        read(A[i]);
      end;
    
    for i:=1 to N do
        begin
          k:=0;
        	for j:=1 to l do
            	if(A[i]=B[l]) then
                	begin
                		k:=1;
                    end;
            if(k<>1) then
            	begin
            		Inc(l);
            		B[l]:=A[i];
                end;
        end;
    write(l);
end.