[Кирюха =)]

Спасибо большое все работает, вы о5 меня выручили!
Но у меня остался вопрос: как из TstReplac(a0) получить массив вида
massiv[0] = tszh;
massiv[1] = sostoyanie-dorog;