Если среднее арифметическое значение отрицательных элементов вектора больше (-5), то отсортировать вектор по убыванию

Dseg segment para public 'data'
mas db -1,3,5,2,-7
n dw 5
sum db ?
Dseg ends
Sseg segment para stack 'stack'
 dw 30 dup(0)
Sseg ends
Cseg segment para public 'code'
osn proc near
 assume cs:cseg,ds:dseg,ss:sseg
 mov ax,dseg
 
 mov ds,ax
 mov cx,n
 mov al,0
 mov di,0
 mov bl, 0
 
start: cmp mas[di], 0 ;найти среднее арифметическое векторов меньше 5
 jge met
 add al, mas[di]
 inc bl
met: inc di
 loop start
 
 cbw
 idiv bl ;нахожу ср. арифметич. 
 mov sum, al
 
 cmp sum, -5 ;сравниваю с -5
  jl met2 ;если меньше -5, прыгаю в конец
 
  ;сортировка по убыванию
  mov cx,n
  Cikl2: push cx
   mov cx, n
   dec cx 
   mov si,0 ;si=j
   cikl1: mov di,si
    inc di ;di=j+1
    mov al, mas[si]
    mov bl, mas[di]
    cmp al,bl
    jge met1
     mov mas[si],bl
     mov mas[di],al
    met1: inc si
   loop cikl1
   pop cx
  loop cikl2 
 
 
  
 
 met2: mov ax, 4c00h
 int 21h 
 osn endp
cseg ends
end osn

.model  large
 
.stack  200h
 
.data
        msgResult       db      'Result:', 0Dh, 0Ah, '$'
        msgPressAnyKey  db      0Dh, 0Ah, 'Press any key to exit...', '$'
.code
 
main    proc
        ;инициализация сегментного регистра ds адресом сегмента данных
        mov     ax,     @data
        mov     ds,     ax
 
        ;вывод результата
        mov     ah,     09h
        lea     dx,     [msgResult]
        int     21h
        ;ожидание нажатия любой клавиши
        mov     ah,     09h
        lea     dx,     [msgPressAnyKey]
        int     21h
 
        mov     ah,     00h
        int     16h
 
        ;завершение программы
        mov     ax,     4C00h
        int     21h
main    endp
 
end     main

.model  large
 
.stack  200h
 
.data
        Array           dw      -1,3,5,2,-7
        Len             dw      ($-Array) / (TYPE Array)
        msgPressAnyKey  db      0Dh, 0Ah, 'Press any key to exit...', '$'
.code
 
;вычисление среднего арифметического отрицательных чисел массива
;на входе:
;  ds:si - указатель на массив
;  cx    - длина массива
;на выходе:
;  ax    - среднее арифметическое
NegAverage      proc
        ret
NegAverage      endp
 
;сортировка массива чисел по неубыванию
;на входе:
;  ds:si - указатель на массив
;  cx    - длина массива
;на выходе:
;  ax    - среднее арифметическое
Sort    proc
        ret
Sort    endp
 
main    proc
        ;инициализация сегментного регистра ds адресом сегмента данных
        mov     ax,     @data
        mov     ds,     ax
 
        ;обработка массива
        ; - вычисление среднего арифметического отрицательных чисел массива
        lea     si,     [Array]
        mov     cx,     [Len]
        call    NegAverage
        ; - сравнение среднего с числом (-5)
        cmp     ax,     -5
        ; - если больше - то сортировать по невозрастанию, иначе - выйти
        jle     @@Exit
        lea     si,     [Array]
        mov     cx,     [Len]
        call    Sort
@@Exit:
        ;ожидание нажатия любой клавиши
        mov     ah,     09h
        lea     dx,     [msgPressAnyKey]
        int     21h
 
        mov     ah,     00h
        int     16h
 
        ;завершение программы
        mov     ax,     4C00h
        int     21h
main    endp
 
end     main