Удаление элемента массива: не могу найти ошибку - Assembler

.model  tiny
    .code
    org 100h
start:
    mov ah,9h
    mov dx,offset text1
    int 21h             ;вывод сообщения
    mov ah,1h
    int 21h             ;считывание символа
    call    perevod             ;преобразуем код в символ
    mov dx,10h
    mul dx              ;умножаем на 10
    mov dx,ax
    mov ah,1h
    int 21h             ;считываем символ
    call    perevod             ;преобразуем код в символ
    add ax,dx
    mov razmer,ax           ;записываем в переменную
 
    mov kol,0h              ;обнуляем счётчик
    mov bx,offset massiv        ;адрес начала списка
    mov adres,bx
    mov ah,9h
    mov dx,offset text2
    int 21h             ;вывод сообщения
vvod:
    mov ah,1h
    int 21h             ;ввод символа
    mov ah,0h
    mov bx,adres
    mov [bx],al             ;записываем считанный символ в список
    add bx,2h
    mov adres,bx            ;увеличиваем адрес на 2 байта
    mov bx,kol
    add bx,1h               ;увеличиваем количество итераций
    mov kol,bx
    mov cx,razmer
    cmp bx,cx
    jl  vvod                ;если введены не все элементы,вводим
    
    mov ah,9h
    mov dx,offset text3
    int 21h             ;вывод сообщения
    mov ah,0h
    mov ah,1h
    int 21h             ;считываем символ
    mov ah,0h
    mov udal,ax             ;и записываем в переменную
 
    mov kol,0h              ;обнуляем счётчик
    mov ind,0h
    mov bx,razmer
    add bx,1h
    mov razmer,bx           ;увеличиваем размер массива на 1
    mov bx,offset massiv
    mov adres,bx            ;начало списка
proverka:
    mov bx,kol
    add bx,1h
    mov kol,bx
    mov cx,razmer
    cmp bx,cx
    je  vyvod               ;если проверили все элементы,выводим
    mov bx,ind
    add bx,1h
    mov ind,bx
    mov bx,adres
    mov cx,[bx]
    add bx,2h
    mov adres,bx            ;увеличиваем адрес на 2 байта
    mov bx,udal
    cmp bx,cx
    je  sdvig               ;если элемент нужно удалить,сдвигаем
    jmp proverka
 
    mov bx,offset massiv
    mov adres,bx
    mov kol,0h
vyvod:
    mov ah,2h
    mov bx,adres
    mov dx,[bx]
    int 21h
    mov bx,adres
    add bx,2h
    mov adres,bx
    mov bx,kol
    add bx,1h
    mov kol,bx
    mov cx,razmer
    cmp bx,cx
    jl  vyvod
    jmp konec
 
konec:
    jmp konec

perevod:
    mov ah,0h
    mov bx,ax
    mov cx,3ah
    cmp bx,cx
    jl  m1
    sub bx,40h
    add bx,9h
    jmp m2
m1:
    sub bx,30h
m2:
    mov ax,bx
    ret
 
sdvig:
    mov k,0h
    mov ax,razmer
    mov dx,ind
    sub ax,dx
m3:
    mov cx,[bx+2h]
    mov [bx],cx
    add bx,2h
    mov dx,k
    add dx,1h
    mov k,dx
    mov cx,ax
    cmp dx,cx
    jl  m3
    mov ax,razmer
    sub ax,1h
    mov razmer,ax
    ret
    
n:
    jmp n

k   dw  0h              
ind dw  0h              
udal    dw  0h              ;символ для удаления
razmer  dw  0h              ;размер списка
kol dw  0h              ;счётчик
massiv  dw  0h              ;начало списка
massiv2 dw  0h              ;начало итогового массива
adres   dw  0h              ;адрес элемента списка
text1   db  "Vvedite razmer massiva v 2-x znachnom vide: ",'$'
text2   db  0Dh,0Ah,"Vvedite elementy massiva: ",'$'
text3   db  0Dh,0Ah,"Vvedite elementy dlya udaleniya: ",'$'
    end start