[impersonalis]

[blitz]
Const max_size%=40

Type TMassiv
Field st$[max_size%]
Field LastE%
End Type

Function Split(param$,M.TMassiv,Dev$)
Local c=1
For i=1 To Len(param$)
ip=Len(param)
For i2=1 To Len(Dev$)
cur_dev$=Mid(Dev,i2,1)
ipt=Instr(param$,cur_dev$,i)
If ipt<ip And ipt<>0 ip=ipt
Next
If ip=Len(param) ip=0
If ip=0 ip=Len(param$)+1
M\st[c]=Mid$(param$,i,ip-i)
i=ip
c=c+1
Next
c=c-1
M\LastE=c
End Function

;========
A.TMassiv=New TMassiv
Split(Input(),A,":;-")


For i=1 To A\lastE
Print A\st[i]
Next
WaitKey()
End
[/blitz]
Function Split(param$,M.TMassiv,Dev$)
param$ -входная (обрабатываемая строка
M.TMassiv - элемент типа TMassiv
Dev$ - строка разделителей
TMassiv
st$[max_size%] - массив подстрок размера max_size%
LastE% - кол-во заполненных элементов