Здавствуйте! Помогите реализовать следующую вещь:

есть некий массив с данными:
mass("one")=.....
mass("two")=.....
mass("three")="5555"
mass("three",1)="1111"
mass("three",2)="2222"
mass("three",3)="3333"
mass("three",4)="4444"
mass("four")=.......
mass("five")=.....
mass("six")=....

надо перестроить mass("three") так чтобы было следующее
....
mass("three")="1111"
mass("three",1)="2222"
mass("three",2)="3333"
mass("three",3)="4444"
mass("three",4)="5555"
....

тут надо еще заметить, что
mass("three")="1111" < 32735 символа
mass("three",1)="2222" = 32735 символа
mass("three",2)="3333" = 32735 символа
mass("three",3)="4444" = 32735 символа
mass("three",4)="5555" = 32735 символа

это таким образом у меня большой объем данных разбивается.. и получается, что самый последний кусок вначале, а все остальное в нормальном виде после(((

в общем, жду ваших предложений!!
спасибо)

пыталась перестроить таким образом:

Set prop=""
While 1 {
Set prop=$Order(save(prop)) Quit:prop=""
if $D(save(prop))=11 {
Set stream = ##class(%GlobalCharacterStream).%New()
s inc=""
do stream.WriteLine(save(prop))
while 1 {
s d=$O(save(prop,inc)) quit:inc=""
do stream.WriteLine(d)
}
do stream.Write(save(prop))
Do stream.Rewind()
k save(prop)
While (stream.AtEnd = 0)
{
s save(prop,$I(save(prop)))=stream.Read()

}
}

}

получилось, что тока остаток сохраняет в массив (типа mass("three")="1111")
в общем, может подскажите где ошибка, либо предложите свой способ..