Здравствуйте, Андреев Дмитрий Фёдорович!

Ошибок несколько.
1. Нет выхода из программы, в связи с чем ваш вариант приводит к аварийному завершению при работе в Windows (и к непредсказуемым последствием в чистом DOS'е).
Для завершения программы нужно выполнить вызов функции 4ch прерывания 21h.

2. Команда cmps сравнивает 2 строки, расположенные по адресам: 1-я - DS:SI; 2-я - ES:DI.
Перед началом выполнения программы сегментные регистры DS и ES установлены на сегмент PSP. Регистр DS вы переустанавливаете, а вот ES - нет. Поэтому сравнение строк производится неправильно.

3. Ну и логическая ошибка, связанная с неучетом длины правильного пароля. В результате правильными в вашем варианте признавались любые пароли, которые содержали в начале сочетание символов 'dima' и пароли 'd', 'di' и 'dim'. Исправлено добавлением проверки на длину правильного пароля.

В Приложении - исправленный вариант.

Приложение:
Stacksg segment
dw 32 dup(?)
Stacksg ends

Datasg segment
password db 'dima'
password_len EQU $-password
string db 10 dup (?)
stra db 'vvedite parol: ', '$'

datasg ends

codesg segment
assume cs:codesg, ds:datasg, ss:stacksg
start:
mov ax, datasg
mov ds, ax
mov es, ax
mov dx, offset stra
mov ah, 9h
int 21h
mov bx, 0

pass:
mov ah, 08h
int 21h

cmp al, 13
je cmpa

mov string[bx], al
inc bx
jmp pass

cmpa: cmp bx, password_len
jne error
mov si,offset string
mov di,offset password
cld
mov cx, bx
repe cmpsb
jne error

good:
mov ah,2h
mov dl, 'P'
int 21h
jmp exit

error:
mov ah,2h
mov dl, 'N'
int 21h
exit:
mov ax, 4c00h
int 21h

codesg ends
end start