В массиве удалить элементы, меньшие среднего арифметического элементов массива

org 100h
 
  jmp start1
;======================================
length db 10
array db 22,7,12,18,5,13,8,23,2,14
 
m3:
  mov word[bx], 0
  dec cx
  jcxz exit      ; отдельное условие проверки CX на 0, т.к loop это делает не явно
  jmp m2
  
;=======================================
start1:
  mov dx, 0
  
  mov bx, array
  movzx cx, [length]
m1:
  mov ax, [bx]
  add dx, ax
  inc bx
  loop m1
  mov cl, [length]
  mov dh, 0
  mov ax, dx    
  div cl               ; в AX среднее арифметич.
  
m2:
  dec bx
  cmp [bx], al
  jl m3       ; Переход если ср. арифметич. больше элемента массива
  loop m2
  exit:
  mov ax, 4C00h
  int 21h

m2: dec bx
cmp [bx],al
jnc m3
mov [bx],ah (который до цикла обнулён);
m3: loop m2

;fasm code...
org 100h
jmp  start
 
array  db   22,7,12,18,5,13,8,23,2,14
len    =    $ - array         ; длина массива = текущий адрес, минус адрес начала массива
 
start: mov   si,array         ; SI для LODSB
       mov   cx,len           ;
       xor   bx,bx            ;
summ:  lodsb                  ;
       add   bx,ax            ; ВХ = сумма
       loop  summ             ;
 
       xchg  ax,bx            ;
       mov   bx,len           ;
       xor   dx,dx            ;
       div   bx               ;
       xchg  ax,dx            ; DX = среднее
 
       mov   cx,bx            ;
       sub   si,cx            ;
       mov   di,si            ; SI/DI = адрес массива
newAr: lodsb                  ;
       cmp   al,dl            ;
       jbe   fuck             ; пропустить, если AL меньше/равно среднего
       stosb                  ; иначе: перезапись массива значением из AL
fuck:  loop  newAr            ;
 
       xor   al,al            ; вставляем маркер конца массива
       stosb                  ;
 
       xor  ax,ax             ;
       int  16h               ;
       ret                    ;