Удалить из строки каждое чётное по счёту слово

include macro.lib
sts segment stack 'stack'
dw 256 dup(?)
sts ends
dts segment 'data'
stroca label byte
maxlen db 130
actlen db ?
str db 130 dup('$')
p db 'Vvoditsya stroka slov, pereimenovat na ! vse slova, zak na a $'
p3 db 'otvet: $'
p2 db 'Vvedite stroku $'
s1 dw (0)
r2 dw (1)
k dw 0
k1 dw 0
dts ends
 
cds segment 'code'
begin proc far
assume cs:cds, ds:dts, ss:sts
push ds
sub ax,ax
mov ax, dts
mov ds, ax
cls
crlf
message p
crlf
crlf
message p2
crlf
mov ah, 0ah
lea dx, stroca
int 21h
crlf
mov al, actlen
cbw
mov cx, ax
lea di, str
m1:
mov al, [di]
cmp al, ' '
jne mm
push di
sub di, 1
mov al, [di]
cmp al, 'a'
jne m2
;inc k1
push cx
mov cx, k
mov al, '!'
m5:
mov [di], al
dec di
loop m5
pop cx
m2:
mov k, 0
pop di
inc di
mm:
inc k
inc di
loop m1
crlf
message p3
crlf
message str
mov ax, 4c00h
int 21h
ret
begin endp
cds ends
end begin

sts segment stack 'stack'
dw 256 dup(?)
sts ends
dts segment 'data'
p1  db 'vvedite stroku: $'
crlf    db 0dh,0ah,'$'
p2  db 'otvet: $'
input   db 80
len db 0
stri    db 80 dup ('$')
error   db 'error$'
dts ends
 
cds segment 'code'
assume cs:cds, ds:dts, ss:sts
start:
mov ax,dts
push    ax
push    ax
pop ds
pop es
lea dx,p1
mov ah,9
int 21h
mov ah,0ah
lea dx,input
int 21h
lea dx,crlf
mov ah,9
int 21h
xor cx,cx
mov cl,len
lea di,stri
mov al,';'
repne   scasb
jcxz    m1
mov bx,di
repne   scasb
jne m1
dec di
mov byte ptr [di],'$'
lea dx,p2
mov ah,9
int 21h
mov dx,bx
int 21h
jmp m2
m1:
lea dx,error
mov ah,9
int 21h
m2:
mov ax,4c00h
int 21h
end start
cds ends

go:
mov dx,di;Сохраним адрес последнего символа + 1
repne   scasb;Ищем
je go;Если находим то ещё
mov di,dx;Берём последнее + 1
dec di;-1

include macro.lib
sts segment stack 'stack'
dw 256 dup(?)
sts ends
dts segment 'data'
stroca label byte
maxlen db 130
actlen db ?
str db 130 dup('$')
p db 'Vvoditsya stroka slov, pereimenovat na ! vse slova, zak na a $'
p3 db 'otvet: $'
p2 db 'Vvedite stroku $'
s1 dw (0)
r2 dw (1)
k dw 0
k1 dw 0
dts ends
 
cds segment 'code'
begin proc far
assume cs:cds, ds:dts, ss:sts
push ds
sub ax,ax
mov ax, dts
mov ds, ax
cls
crlf
message p
crlf
crlf
message p2
crlf
mov ah, 0ah
lea dx, stroca
int 21h
crlf
mov al, actlen
cbw
mov cx, ax
lea di, str
m1:
mov al, [di]
cmp al, ' '
jne mm
push di
sub di, 1
mov al, [di]
cmp al, 'a'
jne m2
;inc k1
push cx
mov cx, k
mov al, '!'
m5:
mov [di], al
dec di
loop m5
pop cx
m2:
mov k, 0
pop di
inc di
mm:
inc k
inc di
loop m1
crlf
message p3
crlf
message str
mov ax, 4c00h
int 21h
ret
begin endp
cds ends
end begin

.model small
.data
maxlen db 20
actlen db ?
buf db 20 dup(' ')
vvod db 'vvedite slovo $'
vyvod db 10,13,'rezult $'
.code
begin:
mov ax,@data
mov ds,ax
mov es,ax
lea dx,vvod
mov ah,9
int 21h
 
lea dx,maxlen
mov ah,0ah
int 21h
lea si,buf
lea di,buf
mov cl,actlen
n1:
movsb
inc si
sub cl,2
ja n1
lea dx,vyvod
mov ah,9
int 21h
mov [di],'$'
lea dx,buf
mov ah,9
int 21h
 
mov ax,4c00h
int 21h
 
end begin

si;Указатель на введённую строку должна заканчиваться 0
dx;Указатель на 0 символ
xor bx,bx;bx=0
next:;
lodsb;
cmp al,' ';
je space;
cmp al,0;
je fin;
bt bx,0;Установлен - слово начато
jc next;к след символу
bts bx,0;
mov di,si;Сохраним 
dec di   ;начало слова
jmp next;след. символ
space:;
bt bx,0 ;Проверка если пред. символ 
jnc next;тоже был пробел к след символу
btr bx,0;Сброс бита слова 
btc bx,1 ;Установлен - слово счётное 
jnc next ;^(проверка и изменение)
push di;Начало удаляемого слова
mov cx,dx
sub cx,si
rep movsb; Удаляем слово
pop si
jmp next;
fin:;
bt bx,2;Установлен - конец цикла
jc finyes;
bts bx,2;Установим
dec si;След символ тоже будет 0
jmp space;проверка
finyes:;