Копирование строк не справляюсь!!!

DATASEG SEGMENT;сегмент данных
    Text1    DB 'Vvedite stroku->',10,13,'$'
    P_N      DB ?
    Text2   DB 'Vvedennaya stroka->','$'
    Str1     DB 255 dup(?)
    tab      DB 10,13,'$'
    Str2     DB 255 DUP(?)
    
DATASEG ENDS
 
CODSEG SEGMENT;сегмент кода
    ASSUME CS:CODSEG, DS:DATASEG, SS:CODSEG, ES:CODSEG
    ORG 100h
BEGIN:
    ;главная программа
    MOV   ax,DATASEG
    MOV   ds,ax
    CALL  IN_STR
    CALL  Vvod_Str
;   CALL  IN_REZ
    JMP EXIT
 
    IN_STR PROC NEAR ;ввод сообщения
    MOV   ah,09h
    MOV   dx,OFFSET Text1
    INT   21h
    RET
    IN_STR ENDP
 
    Vvod_Str PROC NEAR
    MOV   ah,     0ah ; вводим строку
           MOV   dx,     offset  Str1
    INT   21h
    lea     si,     offset  Str1                  
    lea     di,     offset  Str2
    mov cx,10
 
    mov di,si
    rep movsb
 
    MOV   ah,9
    MOV   dx,OFFSET Str2
    INT   21h
    
    RET
    Vvod_Str ENDP
                    
EXIT:           ;выход в ДОС
    MOV ah,4ch
    INT 21h
 
    RET
    CODSEG ENDS
END BEGIN

.model small
 
DATA SEGMENT;сегмент данных
        Text1    DB 'Vvedite stroku->',10,13,'$'
        P_N      db 0
        Text2   DB 'Vvedennaya stroka->',10,13,'$'
    Text3   DB 'Vvedite N->',10,13,'$'
        Str1     DB 255, ?, 255 dup(?)
        tab      DB 10,13,'$'
        Str2     equ $
        
DATA ENDS
 
.code
assume ds:DATA
BEGIN:
    ;главная программа
    MOV   ax,DATA
    MOV   ds,ax
    mov   es, ax
    push offset Text1
    CALL  out_STR
    push offset Str1
    call in_str
    push offset tab
    call out_STR
    push offset Text2
    call out_STR
    xor bx, bx
    mov bl, byte ptr [Str1+1]
    mov byte ptr [Str1+bx+2], '$'
    push offset Str1+2
    call out_str
    push offset tab
    call out_STR
    push offset Text3
    call out_STR
    mov ah, 1
    int 21h
    ; желательно проверить что ввели
    xor ah, ah
    sub al, 30h
    mov P_N, al
 
    push offset Str1
    push ax
    push offset Str2
    call cat_STR
 
    mov al, P_N
    mov bl, byte ptr [Str1+1]
    mul bl
    mov bx, ax
    mov byte ptr [Str2+bx], '$'
    push offset tab
    call out_STR
    push offset Str2
    call out_STR
 
    xor ax, ax
    int 16h
    MOV ah,4ch
    INT 21h    ;выход в ДОС
 
 
    out_STR PROC NEAR ;вывод сообщения
    push  bp
    mov   bp, sp
    MOV   ah,09h
    MOV   dx, [bp+4]
    INT   21h
    pop   bp
    RET   2
    out_STR ENDP
 
    in_STR PROC NEAR ;ввод строки
    push  bp
    mov   bp, sp
    MOV   ah,0ah
    MOV   dx, [bp+4]
    INT   21h
    pop   bp
    RET   2
    in_STR ENDP
 
outpt_str   equ [bp+4]
count       equ [bp+6]
inpt_str    equ [bp+8]
 
    cat_STR proc
    push    bp
    mov bp, sp
    mov cx, count
    mov di, outpt_str
@cat1:
    push    cx
    mov si, inpt_str
    xor ch, ch
    mov cl, byte ptr [si+1]
    add si, 2
    rep movsb
    pop cx
    loop    @cat1
    pop bp
    ret 6
    cat_STR endp
 
end begin