Перевести скрипт с Pine Script v4 на Delphi (Ядерная регрессия)

На делфи нужна процедура на вход которой будет подаваться массив X,Y, а процедура заполнит значение регрессии по каждому элементу массива

//@version=4

study("Nadaraya-Watson Estimator",overlay=true,max_lines_count=500,max_bars_back=500)

h = input(8.,'Bandwidth')

src = input(close,'Source')

//----

n = bar_index

var ln = array.new_line(0)

if barstate.isfirst

for i = 0 to 499

array.push(ln,line.new(na,na,na,na))

//----

float y2 = na

float y1 = na

float y1_d = na

cur_y1 = 0.0

cur_y2 = 0.0

//----

line l = na

label lb = na

if barstate.islast

for i = 0 to min(499,n-1)

sum = 0.

sumw = 0.

for j = 0 to min(499,n-1)

w = exp(-(pow(i-j,2)/(h*h*2)))

sum += src[j]*w

sumw += w

y2 := sum/sumw

d = y2 - y1

cur_y1 = y1

cur_y2 = y2

l := array.get(ln,i)

line.set_xy1(l,n-i+1,y1)

line.set_xy2(l,n-i,y2)

line.set_color(l,y2 > y1 ? #ff1100 : #39ff14)

line.set_width(l,2)

if d > 0 and y1_d < 0

label.new(n-i+1,src[i],'▲',color=#00000000,style=label.style_label_up,textcolor=#39ff14,textalign=text.align_center)

if d < 0 and y1_d > 0

label.new(n-i+1,src[i],'▼',color=#00000000,style=label.style_label_down,textcolor=#ff1100,textalign=text.align_center)

y1 := y2

y1_d := d