Помогите срочно

[SlaYeR_DD]

Необходимо подсчитать количество удаленных "4" и вывести на экран

	
	
;сегмент стека 
stseg segment
stk db 256 dup (?) 
stseg ends

;сегмент данных 
data segment
mes1 db 'Vvedennay stroka:',0ah,0dh,'$'
mes2 db	0ah,0dh,'Izmenennay stroka:',0ah,0dh,'$'

buf db 78
len db 00
s db 78	dup('$'),'$'
data ends

;сегмент кода 
code segment
assume CS:code, DS:data, SS:stseg

;процедура удаления символа
;в DS:SI должна лежать обрабатываемая строка, оканчивающаяся символом $
;в СХ будет записана длина результирующей строки 
del_char proc 
push AX 
xor CX,CX 
mloop:
mov AL,byte ptr [SI]
inc SI
cmp AL,'$'
je mend
cmp AL,'4'
jne mnext

jmp mloop 
mnext:
mov byte ptr [DI],AL 
inc CX 
inc DI 
jmp mloop 
mend:
mov byte ptr [DI],'$'
pop AX
ret
del_char endp

start:
xor AX,AX 
mov BX,data 
mov DS,BX 
mov ES,BX
;ввод строки 
mov AH,09h 
lea DX,mes1 
int 21h 
mov AH,0ah 
lea DX,buf 
int 21h

;вывод исходной строки 
mov AH,09h 
lea DX,s 
int 21h
;изменение строки 
lea SI,s 
lea DI,s 
call del_char
;вывод изменённой строки
mov AH,09h
lea DX,mes2
int 21h
mov AH,09h
lea DX,s
int 21h

;нормальный выход 
mov AH,4ch 
int 21h 
code ends 
end start