data segment
array1d db 15 dup(?)
msg1 db 'enter a set of chars: $'
msg2 db 'the set of chars is : $'
msg3 db 'the capital chars is : $'



data ends

code segment
assume cs:code segment , ds:data segment 

main proc 

	mov ax,data
	mov ds,ax
	
	mov ah,9
	lea dx,msg1
	int 21h
	
	mov cx.15
	
	mov si,0
	mov ah,1h
	
	reading :
		int 21h
		mov array1d[si],al
		inc si
		
		LOOP reading
		
	lea dx,msg2
	mov ah.9
	int 21h
	
	mov ah,4ch
	int 21h
	
	
	
	code ends
main endp

	mov cx,15
	mov ah,2h
	mov si,0
	
	printing:
		int 21h
		mov dl,array1d[si]
		inc si
		
		LOOP printing 
	
	mov ah,9
	lea dl,msg3
	int 21h
	
	 mov cx,15
	 mov si,0
	
	  print capital :
			
		mov al,array1d[si]
		cmp al,'A'
		jge check_z
		jmp exit
		cmp al,'Z'
		
		check_z:
			mov ah,2
			mov dl,al
			int 21h