[YVitaliy]

Там и ошибка. Третим параметром должна передаваться переменная типа Integer, а здесь x0- типа Real. Или здесь нужно использовать процедуру interpol(b-1,b,x0), или искать третий параметр типа Integer для процедуры interpolkv(b-1,b, ?? ,x0)