.model small
.stack 100h

locals
.const
replace_with db 'щука$'
.data
string db 'рак, ракрак, рака',0


.code
Begin:
mov ax,@data
mov ds,ax
mov si,offset string
mov ax,0 

cld
get_char:
mov bx,ax 
lodsb 
or al,al 
jz eol
cmp al,'A' 
jb put_char
cmp bl,'A'
jae put_char

cmp al,'р' 
jne put_char
cmp byte ptr [si],'а'
jne put_char
cmp byte ptr [si+1],'к'
jne put_char
cmp byte ptr [si+2],'A'
jae put_char
add si,2

lea dx, replace_with 
mov ah,9
int 21h

jmp get_char

put_char:
mov dx,ax 
mov ah,2
int 21h
jmp get_char

eol:
mov ax,4C00h 
int 21h
end Begin

	lea dx, replace_with 
	mov ah,9
	int 21h
	add si, 2	; Вот этого
	
	jmp get_char

cmp al,'р' 
jne put_char
;cmp byte ptr [si],'а'
;jne put_char
;cmp byte ptr [si+1],'a'
;jne put_char
;
cmp word ptr [si], 0eae0h ; экономим 5 байтов
jne put_char
cmp byte ptr [si+2],'A'
jae put_char
;add si,2
;
inc si
inc si ; экономим 1 байт: ADD - 3 байта

; mov bx,ax 
; на
xchg bx,ax

; и
; mov dx,ax
; на 
xchg dx, ax

cmp word ptr [si], 0eae0h

      1	0000			     .model small
      2	0000			     .stack 100h
      3
      4				     locals
      5	0000			     .const
      6	0000  F9 F3 EA E0 24	     replace_with db 'щука$'
      7	0005			     .data
      8	0000  F0 E0 EA 2C 20 F0	E0+  string db 'рак, ракрак, рака',0
      9	      EA F0 E0 EA 2C 20	F0+
     10	      E0 EA E0 00
...

cmp word ptr [si], 0eae0h; у меня сначала идет E0 , потом EA, здесь пишем наоборот

      1	0000			     .model small
      2	0000			     .stack 100h
      3
      4				     locals
      5	0000			     .const
      6	0000  E9 E3 AA A0 24	     replace_with db 'щука$'
      7	0005			     .data
      8	0000  E0 A0 AA 2C 20 E0	A0+  string db 'рак, ракрак, рака',0
      9	      AA E0 A0 AA 2C 20	E0+
     10	      A0 AA A0 00

...

cmp word ptr [si], 0AAA0h