data segment
    mess db "your string:   $"
    string db 100,100 dup (0)
data ends

code segment
assume cs:code,ds:data
start:
    mov ax,data
    mov ds,ax

    mov ax,3
    int 10h
    mov ax,0b800h
    mov es,ax
    mov ah,9
    lea dx,mess
    int 21h
    mov ah,0ah
    lea dx,string
    int 21h

    lea di, string+2
    mov si,1680                                ;типа центр, подгони, если не устраивает
    xor ax,ax
    mov al,byte ptr ds:[di-1]           ;корректировка - вся сторка по центру строки экрана
    sub si,ax

    test si,1                   ;корректировка [символ-цвет] для того чтобы символ был на нужной позиции
    je n0
    inc si
n0:
    xor bx,bx
    mov ah,6                   ;цвет зелёный
n1:
    mov al,byte ptr ds:[di+bx]
    mov word ptr es:[si],ax
    add si,2
    inc bx
    cmp bx,6                    ;кол-во зелёных
    jne n2
n2:
    cmp bl,byte ptr ds:[di-1]
    jl n1

    mov ah,10h
    int 16h

    mov ah,4ch
    int 21h
code ends
end start