Нужно переделать, под программу с использованием механизма подпрограмм.

.model small
.stack 256
.data
 mas db 10 dup (0)
 i dw 0 
.code
main:
    mov ax,@data
    mov ds,ax
 
    mov ah,2h
    mov dl,'>'
    int 21h
 
    xor ax,ax
    xor dx,dx
 
    mov cx,11
    xor si,si
;vvod massiva
m1:
    xor ax,ax
    xor dl,dl
    mov ah,1h
    int 21h
 
    cmp al,' '
    je beg1
 
    mov dl,al
    sub dl,'0' 
    mov mas[si], dl 
    inc si
        loop m1
 
beg1:
    xor ax,ax
    mov cx,si
    dec si
    mov dl,mas[si]
    mov i,si
;obrabotka massiva
beg:
    cmp mas[si],dl
    jb m2
    
    mov dl,mas[si]
m2:
    dec si
    loop beg
 
vivod:
    add dl,30h  
    mov ah,2h
    int 21h
    
exit:
    mov ah,4ch
    int 21h
end main

.model small
.stack 256
.data
 mas db 10 dup (0)
 i dw 0 
.code
main:
    mov ax,@data
    mov ds,ax
    mov es, ax
 
    mov ah,2h
    mov dl,'>'
    int 21h
;vvod massiva 
    mov cx,10
    lea di, mas
    call mas_input
 
    mov cx, 10
    lea si, mas
    call find_max
 
vivod:
    mov ah, 2
    mov dl, 10
    int 21h
    mov dl, bl
    int 21h
 
exit:
    xor ax, ax
    int 16h
    mov ah,4ch
    int 21h
 
mas_input proc
m1:
    mov ah,1h
    int 21h
    cmp al, '0'
    jb exit_input
    cmp al, '9'
    ja exit_input
    cmp al, ' '
    jz exit_input
    stosb
    loop m1
exit_input:
    ret
mas_input endp
 
find_max proc
    mov bl, [si]
f1:
    lodsb
    cmp al, bl
    jna _na
    mov bl, al
_na:
    loop f1
    ret
find_max endp
 
end main