use of repeat in turning block attributes into multitext for Mleader

[sorourke765462]

So I have the following LISP written :

(defun c:MULTITAG ( / ) 
 (setq DEPTH () CODE () ELEVATION () SIZE () MATERIAL () NOTE () FLOW () )	
 (varopen)

 (setq RPT (getint "\nEnter Number of Pipes : ")) 	

 (repeat RPT  						
 (setq Blname (car(entsel "\nSelect Survey Points for attributes:")))	

 (GA Blname)						

 (setq Si_dia (strcat flow " - " Size "%%c"))
 (if (= material "UKN")
 (setq Si_dia_mat Si_dia)
 (setq Si_dia_mat (strcat Si_dia " " Material))
 )
 (setq ELEVATIONN (atof C))				
 (setq DEPTHN (atof DEPTH))				
 (setq y (- ELEVATIONN DEPTHN))				
 (setq x (rtos y))					
 (setq D DEPTH)						
 (setq Tx (strcat si_dia_mat " (" CODE ")" "\n\ RL OF INVERT: " x "m" "\n\ TAPE DEPTH: " D "m" "\n" )))
 (princ)
 

 (setq Blname2 (car(entsel "\nSelect Survey Point for leader insertion:")))	

 (GA Blname2)

 (setq coord (cdr(assoc 10 (entget blname2))))		
 (setq A (rtos (nth 0 coord) 2 3))
 (setq B (rtos (nth 1 coord) 2 3))
 (setq C (rtos (nth 2 coord) 2 3))



							
 (COMMAND "-LAYER" "M" (strcat lay "_txt") "")		
 (COMMAND "_MLEADER" coord PAUSE TX))			
 (Varclose)
 (prin1)

I understand that what this LISP is doing at present is writing then writing over the text for Mleader for RPT instances, the text in red. How do I change the code to get 1,2,3...etc instances of the text to capture and write into the multitext of the Mleader?