Работа со строками

stk segment stack
   db 256 dup(?)
stk ends
 
data segment
    extrn s:byte
    extrn otvet:byte
    extrn sLen:byte
 
    probels dw 255 dup(?) ;позиция пробелов
    len dw 255 dup(?)     ;длина слов
 
    iLenE dw 0
data ends
 
code segment
assume cs:code,ds:data,ss:stk
public baur2
    mov ax,data
    mov ds,ax
    mov es,ax
 
baur2 proc
    mov si,0
    lea di,s
    mov bx,di
    inc bx
    mov probels[si],bx
    mov al,' '
    cld
    xor cx,cx
    mov cl,sLen
    add cx,2
 
c1:
repne scasb
    jcxz add_ends
    add si,2
    mov probels[si],di
    jmp c1
add_ends:
    add si,2
    mov probels[si],di
 
;get length words and move in massiv len
    mov ax,si
    mov iLenE,ax
 
c2:
    mov ax,probels[si]
    sub ax,probels[si-2]
    dec ax
    mov len[si-2],ax
    sub si,2
    cmp si,0
    jg c2
 
;sorted words
    mov dx,1
min:
    mov si,0
    mov di,0
c3:
    add si,2
    mov ax,len[si]
    mov bx,len[di]
    cmp ax,?
    je exit
    cmp ax,bx
    jge c3
    mov di,si
    jmp c3
 
exit:
    mov ax,len[di]
    cmp ax,255
    je quit
    mov cx,len[di]
    mov len[di],255
    inc cx
    mov si,probels[di]
c4:
    lodsb
    mov di,dx
    mov otvet[di],al
    inc dx
    loop c4
    jmp min
quit:
    mov al,sLen
    mov otvet[0],al
    extrn rezultat:near
    call rezultat
    ret
baur2 endp
code ends
end