DATA SEGMENT
BUFFER DW  5,10,32,47,53,77,89,106,115,124
N  DW  10
M  EQU  80
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,ES:DATA
MAIN PROC FAR
START:PUSH DS
      SUB AX,AX
      PUSH AX
      MOV AX, DATA
      MOV DS,AX
      MOV ES,AX
      MOV AX,M
      MOV CX,N
      MOV DX,N
      MOV DI,OFFSET BUFFER
      CLD
      REPNE SCASW
      JE  DEL
      DEC DX
      MOV SI,DX
      ADD SI,DX
L1:   CMP AX,BUFFER[SI]
      JL L2
      MOV BUFFER[SI+2],AX
      JMP L3
L2:   MOV BX,BUFFER[SI]
      MOV BUFFER[SI+2],BX
      SUB SI,2
      JMP L1
L3:   ADD DX,2
      JMP NEXT1
DEL:  JCXZ NEXT
DEL1: MOV BX,[DI]
      MOV [DI-2],BX
      ADD DI,2
      LOOP DEL1
NEXT: DEC DX
NEXT1:RET
MAIN ENDP
CODE ENDS
END  START