Введите в param$ какие-то данные, разделённые ";" - после прокрутки цикла массив temp$ будет заполнен вашими данными:
введите
на выходе получите

Anree будет рад :)

Забыл добавить:
в с будет хранится кол-во найденных подстрок.
Поэтому, последний цикл можно переписать:

Для справки:
Термин "конкатенация" означает объединение. Конкатенация строк - объединение двух строк в одну (часто используется в программировании). Деконкатенация строк - их разделение на две или больше.

эээ... вот бы готовую функцию, такоую как Split получить

Мдя на входе строка и список разделителей на выходе массив кусков :)

[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% - кол-во заполненных элементов

примерно так. можно оптимизировать - дерзайте =)