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

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