В функциию все передавалось как надо, глюки начались после перехода интерпретатора за строчку с begin
Почитал кусок хелпа.
Проблемма решилась тем что все массивы в програме объеявленны как
начинающиеся с 1 позиции. [1...n] в этом собственно и крылась проблема.
Всем спасибо за советы!
