data segment
  str db 10 dup(?)
  mess db'please input numbers'
data ends
stack segment para stack'stack'
  dw dup 100 dup(?)
stack ends
code segment
  assume cs:code,ds:data,ss:stack
start:mov ax,data
      mov ds,ax
      lea dx,mess
      mov ah,09h
      int 21h
      mov cx,10

input: mov si,offset str
       mov ah,01h
       int 21h
       mov byte ptr[si],al
       inc si
       loop input
       
select: mov cx,10
        lea si str
        mov al,byte ptr[si]
compare:inc si
        cmp al,byte ptr[si]
        jle next
        mov al,byte ptr[si]
  next: loop compare
        mov dl,al
        mov ah,02h
        int 21h
code ends
     end start