Нахождение, замена и удаление символа в строке

.model small
 
.stack 100h
 
.data
        CrLf    db      0Dh, 0Ah, '$'
        A1      db      'Проверьте, встречается ли в строке символ "Ж" и, если да, удалите его из массива', '$'
        N       dw      $-A1-1
        MsgYes  db      'Встречается', 0Dh, 0Ah, '$'
        MsgNo   db      'Не встречается', 0Dh, 0Ah, '$'
.code
 
main    proc
        mov     ax,     @data
        mov     ds,     ax
 
        mov     ah,     09h
        lea     dx,     [A1]
        int     21h
 
        mov     cx,     [N]
        lea     si,     [A1]
        mov     ax,     0
        @@ForI:
                cmp     [si],   byte ptr 'Ж'
                jne     @@Next
                mov     [si],   byte ptr 'G'
                mov     ax,     1
        @@Next:
                inc     si
        loop    @@ForI
 
        cmp     ax,     0
        jz      @@No
@@Yes:
        mov     ah,     09h
        lea     dx,     MsgYes
        int     21h
        jmp     @@Show
@@No:
        mov     ah,     09h
        lea     dx,     MsgYes
        int     21h
 
@@Show:
        mov     ah,     09h
        lea     dx,     [A1]
        int     21h
 
        mov     ax,     4C00h
        int     21h
main    endp
 
end     main