Требуется подсчитать количество каждого из разделительных символов и выделить отдельные слова

CLS
LINE INPUT a$
 
IF MID$(a$, 1, 1) <> " " AND MID$(a$, 1, 1) <> ";" AND MID$(a$, 1, 1) <> "," THEN oldi = 0
CLS
PRINT "Words: ": PRINT
FOR i = 1 TO LEN(a$)
        IF i = LEN(a$) THEN PRINT MID$(a$, oldi + 1, i - oldi): EXIT FOR
        IF MID$(a$, i, 1) = " " THEN
                ksp = ksp + 1
                PRINT MID$(a$, oldi + 1, i - oldi - 1)
                oldi = i
        END IF
        IF MID$(a$, i, 1) = ":" THEN
                kcol = kcol + 1
                PRINT MID$(a$, oldi + 1, i - oldi - 1)
                oldi = i
        END IF
        IF MID$(a$, i, 1) = "," THEN
                kcom = kcom + 1
                PRINT MID$(a$, oldi + 1, i - oldi - 1)
                oldi = i
        END IF
NEXT i: PRINT
PRINT "Number of spaces :"; ksp
PRINT "Number of commas:"; kcom
PRINT "Number of colons  :"; kcol

CLS
DIM c$(100)
LINE INPUT "vvedite frazy ";f$
FOR i=1 TO LEN(f$)
IF MID$(f$,i,1)="," THEN k=k+1
IF MID$(f$,i,1)=" " THEN g=g+1
IF MID$(f$,i,1)=":" THEN z=z+1
NEXT
PRINT"запятые";k :PRINT"пробелы";g :PRINT"двоеточие";z
f$=" "+f$
FOR i=1 TO LEN(f$)
IF MID$(f$,i,1)=" " OR MID$(f$,i,1)="," OR MID$(f$,i,1)=":" THEN m=m+1 ELSE c$(m)=c$(m)+MID$(f$,i,1)
NEXT
PRINT"otdelnie slova:"
FOR i=1 TO LEN(f$)
PRINT c$(i)
NEXT