.model small
stack 256h
.data
    greeting        db  'Hello, enter your string:$'
    max_str         db  'Maximum number: $'
    min_str         db  'Minimum number: $'
    no_str          db  'String is not entered$'
    no_nums         db  'No numbers in string$'
    string          db  255, ?, 255 dup(?)
    next_line       db  10,13,'$'
    max             db  0
    min             db  10
.code

exit proc
mov al,0
mov ah,4Ch
int 21h
endp

output macro str
    mov ah,09h
    mov dx,offset str
    int 21h
endm

programm proc
    xor ch,ch
    mov cl,string[1]
    cmp cx,0
    mov bx,2
    jne max_min_number
    output no_str
    call exit

max_min_number:
    mov al,string[bx]
    cmp al,'0'
    jl go_next2
    cmp al,'9'
    jg go_next2
    sub al,'0'

    cmp al,max
    jl gonext
    mov max,al
    gonext:

    cmp al,min
    jg go_next2
    mov min,al
    go_next2:
    inc bx
    loop max_min_number

    cmp min,10
    jne output_results
    output next_line
    output no_nums
    call exit

endp


start:
    mov ax,@data
    mov ds,ax
    output greeting
    output next_line
    mov dx,offset string
    mov ah,0Ah
    int 21h

    call programm

    output_results:
    output next_line
    output max_str
    mov ah,02h
    mov dl,max
    add dl,'0'
    int 21h
    output next_line
    output min_str
    mov ah,02h
    mov dl,min
    add dl,'0'
    int 21h



    mov al,0
    mov ah,4Ch
    int 21h

End start