Найти наиболее часто встречающееся число

[PerPer]

Всем привет, в assemblere не силен, все плохо, помогите пожалуйста, довести программу до рабочего состояние, мне нужно найти наиболее часто встречающееся число в массиве.

.model small
.stack 100h
.data
msg1    db  'Array: $'
array   db  4,2,6,4,7,4,2,3,4,1
i   db  0
j   db  0
.code
main:
    mov ax,@data
    mov ds,ax
    xor ax,ax  
    mov cx,7
    mov si,0
    mov di,si
First:
    mov cx,7
    mov al,array[si]
    inc i
Second: 
    mov di,si+1
    cmp al,array[di]
    jz proc A
    loop Second
    cmp ah,i
    jl B
    loop First
    jmp output 
A:
    inc i
    ret
    
Output:
    mov ax,09h
    mov dl,j
    int 21h
    jmp ext
B:
    mov ah,i
    mov j,al
    ret
ext:
    mov ax,4c00h
    int 21h
end main

[R71MT]

...читай байтами и сравнивай на-равно. Один из регистров пусти в качестве флага