Ошибка при компиляции функции

[_alis_]

Ребята, помогите пожалуйста найти ошибку! Вроде все делаю правильно, а при компиляции получаю сообщение:"Not enough actual parameters".

type per=array[1..6] of real;

. . .

function TForm1.POlinom(n: integer; d: real; x, y: per): real;
var
l:real;
k,i:integer;
p: real;
begin
L:=y[1];
P:=1;
for k:=1 to n do begin
P:=P*(D-X[k-1]);
for i:=1 to (n-k) do begin
Y[i]:=(y[i+1]-y[i])/(x[i+k]-x[i]);
end;
L:=L+P*y[1];
end;
Polinom:=l;
end;

procedure TForm1.FormCreate(Sender: TObject);
var z,d:real;
n:integer;
x,y :per;
begin
n:=6;

d:=1.25;

x[1]:=1;
x[2]:=1.5;
x[3]:=2;
x[4]:=2.5;
x[5]:=3;
x[6]:=3.5;

y[1]:=0.5;
y[2]:=2.2;
y[3]:=2;
y[4]:=1.8;
y[5]:=0.5;
y[6]:=2.25;

z:=floattostr(POlinom(n;d;x,y;));

Memo1.Text:=l;
end;

end.

[Stilet]

(POlinom(n;d;x,y

Через запятую нужно а не через точку-запятую.

[_alis_]

Всего то... Спасибо большое!!