[Ama]

Я думаю, что тебе в параметрах функции вместо x , y: array of real; надо объявлять x , y: Tarray_of_real где Tarray_of_real это новый тип: Tarray_of_real = array of real.