Найти сколько раз в массиве встречается минимальный элемент

Dseg segment para public ‘data’ 
mas db -1,3,5,2,-7 
n dw 5 
min 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 ;cx=n 
mov al, mas ;al=mas[0] 
mov di,0 ;di=0 
start: cmp al, mas[di] 
jle met 
mov al, mas[di] 
met: inc di
loop start 
mov min, al 
mov ax, 4c00h 
int 21h 
osn endp 
cseg ends 
end osn

Dseg segment para public ‘data’
mas db -1,3,5,2,-7
n dw 5
min db ?
kol db 0
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 ;cx=n
 mov al, mas ;al=mas[0]
 mov di,0 ;di=0
start: cmp al, mas[di]
 jle met
 mov al, mas[di]
met: inc di 
loop start
 mov min, al
start: cmp al, mas[di]
 jn met1
 inc kol
met: inc di 
loop start
mov al,kol
 mov ax, 4c00h
 int 21h
osn endp
cseg ends
end osn

Dseg segment para public 'data' 
mas db -1,3,5,2,-7
n dw 5
min db ?
kol db 0
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 ;cx=n
 mov al, mas ;al=mas[0]
 mov di,0 ;di=0
start: cmp al, mas[di]
 jle met
 mov al, mas[di]
met: inc di
loop start
 mov min, al
mov di,0 ;di=0
start1: cmp al, mas[di]
 je met1
 inc kol
met1: inc di
mov kol,al 
loop start1
mov kol,al
 mov ax, 4c00h
 int 21h
osn endp
cseg ends
end osn

ORG 100h
JMP start
 
mess0  DB  13,10,'COUNT MIN: $'
array  DB  1,3,4,50,18,1,200,103,5,1,1,67,33
size   =   $ - array
min    DB  0FFh          ; минимальный элемент
 
start:
;================= ПОИСК МИНИМАЛЬНОГО ЗНАЧЕНИЯ ==================//
   MOV   SI,array        ; адрес массива
   MOV   CX,size         ; его длина
findMin:                 ;
   LODSB                 ; берём от туда байт
   CMP   AL,[min]        ;
   JAE   next            ; больше минимального?
   MOV   [min],AL        ; нет - запоминаем его
next:                    ;
   LOOP  findMin         ; сл.байт...
 
;================= СЧЁТЧИК НАЙДЕНЫХ МИН.ЭЛЕМЕНТОВ ===============//   
   MOV   SI,array        ;
   MOV   CX,size         ;
   MOV   BL,[min]        ; искомый элемент
   XOR   DX,DX           ; счётчик сбрасываем в нуль
count:                   ;
   LODSB                 ; читаем байт
   CMP   AL,BL           ; наш клиент?
   JNZ   fuck            ; нет - в топку его
   INC   DL              ; да - увеличиваем счётчик
fuck:                    ;
   LOOP  count           ; сл.байт
   PUSH  DX              ; сохраняем выхлоп!
 
print:
   MOV   AH,9            ;
   MOV   DX,mess0        ;
   INT   21h             ;
   POP   AX              ;
   ADD   AL,30h          ; и на экран его..
   INT   29h             ;
 
exit:                    ;
   XOR   AX,AX           ;
   INT   16h             ;
   INT   20h             ;