Cần giúp về hợp ngữ

[Linh (Nguyễn Văn Linh)]

Bài này mình đã suy nghĩ và làm mà vẫn không ra, các bạn xem code hộ mình rồi chỉ cho mình chỗ sai và cách khắc phục với.tks
Đề: nhập ct nhập vào 2 chuỗi có độ dài và kí tự bất kì sau đó in ra phần tử giống nhau của 2 chuỗi
Code của mình:

.model small
.stack 100h
.data
    tb db 13,10,'nhap vao chuoi 1: $'
    tb2 db 13,10,'nhap vao chuoi 2: $'
    tb3 db 13,10,'chuoi ki tu giong la: $'
    chuoi1 db 1000 dup(?)
    kitugiong db 1000 dup(?)
.code
main proc
    mov ax,@data
    mov ds,ax
    mov si,0
    mov di,0
    lea dx,tb
    mov ah,09h
    int 21h
    
    nhapchuoi1:
    
    mov ah,1
    int 21h
    mov chuoi1[si],al
    inc si
    cmp al,0DH
    jE thongbao2
    loop nhapchuoi1
    
    thongbao2:
    lea dx,tb2
    mov ah,09h
    int 21h
    cmp al,0dh
    ;jmp nhapchuoi2 
    
    nhapchuoi2:
    mov ah,1
    int 21h
    cmp al,0dh
    je thongbao
    mov cx,si
    mov si,0
    
    
    sosanh:
    mov ah,chuoi1[si]
    cmp al,ah
    JE hamkitugiong;sosanh2
    inc SI
    cmp cx,0
    je nhapchuoi2
    loop sosanh
    
    ;gan:
    ;mov cx,di
    
    ;jmp sosanh2
    
    ;sosanh2:
    ;mov ah,kitugiong[di]
    ;dec di
    ;cmp al,ah
    ;je nhapchuoi2
    ;cmp cx,0
    
    
    
    hamkitugiong:
    
    mov kitugiong[di],al
    inc di
  
    jmp nhapchuoi2
    
    thongbao:
    lea dx,tb3
    mov ah,09h
    int 21h
    mov cx,di
    mov di,0
    
    xuat:
    
    
    mov ah,2
    mov dl,kitugiong[di]
    int 21h
    inc di
    cmp cx,0
    ;je ends main
    
    loop xuat
    ;mov ah,4ch
    ;int 21h
   main endp