Удаление из исходной строки многократные вхождения заданного символа, заменяя их однократными

.model small
.386
.stack 100h ;Отвести под стек 256 байт
org 100h
.data
string1 db 'Enter your string: $'
my_char db 'Enter your symbol: $'
string_out db 'Output string: $'
string db 100 dup ('$') 
str_len db  ?
charq db ?
 
.code
 start:
    mov ax,@data
    mov ds,ax
 
    mov ah,09h ;вывод сообщения string1
    lea dx,string1
    int 21h
    
    mov ah,0Ah
    lea dx,string
    int 21h 
   
    mov ah,02h ;где 0Dh 0Ah: возврат каретки/ перевод строки
    mov dl,0Dh
    int 21h  
    
    mov ah,02h
    mov dl,0Ah
    int 21h
    
    mov ah,09h ;вывод сообщения my_char
    lea dx,my_char
    int 21h
    
    mov ah,01h
    int 21h
    
    mov charq,al
    
    mov ah,02h
    mov dl,0Dh
    int 21h 
    
     mov ah,02h
     mov dl,0Ah
    int 21h  
    
    xor cx,cx
    
    mov di,offset string   ;установка  di на начало string
    push ds 
    mov si,offset string ;установка si на начало string
    mov bx,[di]             ;сохранение длины строки в памяти
    mov str_len,bl         ;и
    mov cl,str_len          ;загрузка ее в cx
    inc di                  ;переход к первому элементу строки
    inc si
    mov al,charq             ;сохранения заданного символа в al
    cld   ;Очистка флага направления
    
    
search:
 
 
exit:  
     
 
    
    mov ah,09h ;вывод сообщения string_out
    mov dx,offset string_out
    int 21h
    
    lea dx,string+1
    mov ah,09h
    int 21h
    
    mov ah,4Ch
    mov al,00h
    int 21h
end start