Why Still Unequal?

[Zerua]

Enter your answer: Cucumber
You got the wrong answer...
but it should be correct answer

Data Segment      
  input db "Enter Your Answer: $"
  g db 20 dup('$') ;
  strlen1 db $-g
  str2 db 'cucumber','$'
  strlen2 db $-str2
  streq db 10,13,'You got the correct answer','$'
  struneq db 10,13,'You got the Wrong answer','$'
Data Ends

Code Segment
  Assume cs:code, ds:data
  Begin:
    mov ax, data
    mov ds, ax
    mov es, ax    

   mov ah,09h
   lea dx,input
   int 21h    

   MOV AH,0AH
   MOV DX,SI
   INT 21H     
   lea si,g

   lea di, str2
   mov cx, 3
   mov al, strlen1
   mov bl, strlen2
   cmp al, bl
   jne Not_Equal

   repe cmpsb
   jne Not_Equal
   jmp Equal

   Not_Equal:
       mov ah, 09h
       lea dx, struneq
       int 21h
       jmp Exit
   Equal:
       mov ah, 09h
       lea dx, streq
       int 21h
   Exit:
       mov ax, 4c00h
       int 21h
Code Ends

End Begin