Найти в коде строчу,где мы вводим цифру и тот ищет в строчке слово

.MODEL small                                  
.STACK 100h
data segment
  str1 db 50 dup ('$')                        
  str2 db 50 dup ('$')
  mess1 db "type string: $"
  mess2 db "type number from 0 to 9: $"
  mess3 db "  result: $"
  a dw 0
data ends
code segment
  assume ds:data, cs:code
  start:
    mov ax, data
    mov ds, ax
    mov ah, 0ch
    int 21h
    mov ah, 09h
    mov dx, offset mess1
    int 21h
   
    mov ah, 3fh
    mov dx, offset str1
    int 21h
    
    mov ah, 09h
    mov dx, offset mess2
    int 21h
  
    mov ah, 01h
    int 21h
    mov bl, al
    sub bl, 48
    mov bh, 0
  
    mov cx, 0             
    mov dx, 0
    mov di, 0
    mov si, 0
    mov ah, 0
    mov al, 0
 
 
 
M:  mov si, dx
F1: cmp str1[si], ' '
    jne E1 
    add si, 1
    jmp F1 
 
 
E1: mov cx, si
    mov si, cx 
F2: cmp str1[si], ' '    
    je E2  
    cmp str1[si], 13 
    je E2     
    add si, 1 
    jmp F2
 
E2: mov dx, si
 
    mov ax, dx
    sub ax, cx
 
    cmp ax, bx
    jne U2   
    mov si, cx
    mov di, a                 
F4: cmp si, dx
    je E4 
    mov ah, str1[si] 
    mov str2[di], ah
    add si, 1
    add di, 1
    jmp F4
 
E4: mov ah, ' ' 
    mov str2[di], ah
    add di, 1 
    mov a, di
 
U2: mov si, dx
    cmp str1[si], 13
    je R 
    jmp M
 
R:  mov ah, 09h
    mov si, 0
    mov mess3[si], 13
    mov si, 1
    mov mess3[si], 10
    mov dx, offset mess3
    int 21h
 
    mov dx, offset str2 
    int 21h     
 
    mov ah, 07h
    int 21h 
    mov ah, 4ch
    mov al, 00h 
    int 21h 
code ends
end start