А ты не пробовал, в обеих подпрограммах задать размерности массивов равных максимальному размеру XDATA, ну или чтобы их сумма была больше этого размера?
E-mail: info@telesys.ru