Jednoduchá úloha v assembleri - pomozte

.MODEL SMALL                   
.STACK 50H     
.data
                 
zadaj     DB 13,10,'Zadaj retazec a stlac ENTER: $'
vysledok  DB 13,10,'Cislice z retazca <0....9>: $'
priemer   DB 13,10,'Aritm.priemer: $'
dlzka     DB 0FFh
text      DB '' ; tu sa bude ukladat "zadavany retazec"

.CODE
org 100h
                 
START:
          mov ax,@data
          MOV DS,AX
          mov ah,09h
          lea dx,zadaj
          int 21h           ; zobrazi sa vyzva na zadanie retazca

          lea dx, dlzka     ;nastavi do dx adresu ulozenej max dlzky retazca
                            ;zaroven od tej adresy bude ukladat nacitany retazec
          mov ah,0Ah        ;sluzba na nacitanie retazca ukonceneho ENTER
          int 21h

                lea bx, text          ; do bx adresu data seg.
                xor CX, CX            ; CX <--- 0
                mov CL, [bx]          ; CL ... dlzka nacitaneho textu
                MOV DI, CX
                mov [text+DI+1], '$'  ; na koniec nacitaneho retazca prida '$'

          lea dx,vysledok
          mov ah,09h
          int 21h            ; zobrazi text "Cislice:..."

                XOR BX,BX             ; BX <- 0;   ...sucet cislic
                XOR CH,CH             ; CH <- 0;   ...pocet cislic

                lea DI, text
cely_retazec:
                mov AL, [DI]
                cmp AL, '$'           ; sme uz na konci prehladavaneho retazca
                je  koniec_retazca
                cmp AL, '0'           ; porovna znak s cislicou '0'
                jl  nie_cislica       ;     ... menej nez '0'
                cmp AL, '9'           ; porovna znak s cislicou '9'
                jg  nie_cislica       ;     ... viac nez '9'
               
cislica:
                mov DL, AL            ; ... cislica !!! :-)
                mov ah,02h            ;
                int 21h               ;vypisanie znaku (cislice)
aritmetika:               
                inc CH                ; Pocet cislic +1
                sub AL,'0'            ; ... z cislice urobime cislo ('0'...0; ---- '9'...9)
                mov AH, 0
                add BX,AX             ; sucet + hodnota_cislice
nie_cislica:
                inc DI                ; dalsi znak v zdrojovom retazci
                jmp cely_retazec                                 

koniec_retazca:
          lea dx,priemer
          mov ah,09h
          int 21h            ; zobrazi text "Aritm.priemer:"
         
                mov AX,BX             ; pre delenie musi byt delenec register AX !!!
                div CH                ; AX / CH (sucet/pocet)

          mov DL, AL            ; .priemer je v AL, ale je to cislo!!! (napr. 4)
          ADD DL, '0'           ;     ... z cisla urobime znak (4--->'4')
          mov ah,02h            ;
          int 21h               ;vypisanie znaku (cislice/vysledku)  :-)
                 
koniec:                               
                MOV AX,4C00H
                INT 21H               ; koniec               
                END START

.MODEL SMALL                   
.STACK 100H     
.DATA
               
riadok          DB 10,13                 
udaje_zo_suboru DB '0123456789', '$'
file_handle     DW 0
dlzka           DB 0, 0
meno_suboru     DB "subor.txt", 0

.CODE
                 
START:          MOV AX,@DATA
                MOV DS,AX

fileopen:       mov AX, 3D00h         ; open file (read only)
                lea DX, meno_suboru
                int 21h               ; INT21 ... file open
                mov file_handle, AX

fileread:       mov BX, file_handle
                mov CX, 10            ; CX...10    number of bytes to read
                lea DX, udaje_zo_suboru  ; pointer to read buffer
                mov AH, 3Fh           ; file read by filehandle
                int 21h               ; INT21 ... file read

data_out:       MOV AH,09H
                LEA DX, riadok
                INT 21h               ; vypis textu... (obsah suboru)
               
fileclose:      mov BX, file_handle
                mov AH, 3Eh           ; file close by filehandle
                int 21h               ; INT21 ... file close

koniec:         MOV AX,4C00H
                INT 21H               ; koniec               
                END START