datarea  segment
  grade    dw  88,75,95,63,98,78,87,73,90,60
  rank     dw  10 dup(?)
datarea  ends
progrom segment

main   proc  far
  assume cs:progrom,ds:datarea
start:
    push  ds
    sub   ax,ax
    push  ax

    mov   ax,datarea
    mov   ds,ax

    mov   di,10
    mov   bx,ax
loop:
    mov ax,grade[bx]
    mov dx,10
    mov cx,10
    lea   si,grade
next:
   cmp ax,[si]
   jg no_count
   inc dx
no_count:
   add si,2
   loop next
   mov rank[bx],dx
   dec di
   jne loop

   ret

main   endp
progrom ends
       end  start


[em2][em2]