CHARACTER ST*80, Ho*7, Ten*7, Dem*20
character tu(50)*7

ST='    Nguyen Thi Thanh   THU     A  BCD    THUY'
L = Len(ST)
I=0
DO
  I=I+1
  IF (ST(I:I)/=' ') EXIT
END DO
N1=I
I=L
DO
  IF (ST(I:I)/=' ') EXIT
  I=I-1
END DO
N2=I

I = N1-1
NTu = 0
DO
   I = I + 1
   IF (ST(I:I)/=' ') THEN
	  K = 0
	  NTu = NTu+1
	  DO 
		 IF (ST(I:I)==' ') THEN
  		    PRINT*,'Tu ', NTu, ' Dai ',K
		    EXIT
		 END IF
		 I = I + 1
		 K = K + 1
	  ENDDO
	  Tu(Ntu)=ST(I-k:I)
   ELSE
      CYCLE
   END IF
   IF (I>=N2) EXIT
ENDDO
DO I=1,NTU
   PRINT*,TU(I)
ENDDO

END