Удалить элементы массива, имеющие одинаковые значения

masm
model small
.stack 256
.data
len equ 10
n db 1,2,3,4,5,6,7,8,9,10
.code
start:   
    mov ax, @data        
    mov ds, ax
    mov count, 10
    xor si, di
    jcxz    exit
cikle1:
    xor ax, ax
    cmp n[si], n[di]
    je 
    jmp m
    
cikle2:
    inc si
    cmp si, di
    jne cikle1
    jmp exit
    
m:
    mov di, si
perem:
    mov bh, n[di+1]
    mov n[di], bh
    inc di
    mov cx, di
    inc cl
    cmp cl, count
    jne perem
    dec count
    dec si
    mov dl, count
    mov di, dx
    mov n[di], 0
    jmp cikle2
    
exit:
    mov     ax, 4c00h        
    int     21h     
 
end start

.286
.model tiny
.code
start:
; ищем повторяющиеся элементы и заменяем их на 0FFh
    mov cx,lenth+1
    mov bx,offset array 
a2: push cx
    mov al,[bx]
    cmp al,0FFh
    je a1
    mov di,bx
    inc di
a0: repne scasb
    jcxz a1
    mov byte ptr [edi-1],0FFh
    loop a0
a1: inc bx
    pop cx
    loop a2
; ищем элемены отличающиеся от 0FFh и сдвигаем их в начало массива
; таким образом происходит удаление из массива повторяющихся элементов
    mov al,0FFh
a5: xor bx,bx
        mov cx,lenth
    mov di,offset array 
a4:     repne scasb
        jcxz a3
    cmp al,[di]
    je a4
    xchg al,[di]
    xchg al,[di-1]
        mov bl,1
        jmp a4
a3: cmp bx,1
    jz a5
; ищем первый элемент с кодом 0FFh, отнимаем от его адреса адрес начала 
;массива, таким образом мы определяем количество оставшихся элементов.
        mov cx,lenth
    mov di,offset array 
    mov si,di
    repne scasb
    sub di,si
    dec di
    ret
array db 1,2,1,1,4,2,7,4,1,10
lenth = $ - array
end start;конец программы