[qpmr]

Здравствуйте , мне нужно вычислить значение полинома n-ой степени
формула Ai*x^i (i - от 0 до n ) ;
Получилось так , подскажите пожалуйста как исправить ..

Код:

procedure TForm1.Button1Click(Sender: TObject);
 var   x,n:integer;
function fk(n,x:integer;a:array of integer):extended;
begin
 if n=0 then fk:=a[n] else
  fk:=a[n]+ fk(a[n-1]*(round(Power(x,n+1)))) ;// как обойти несоответствие типов при возведении в степень ?

end;
begin
x:=strtoint(edit1.text);
a[n]:=strtoint(stringgrid1.Cells[n-1,0];
  label1.caption:=floattostr(fk(n));   end;
end.