Библиотеку пока написать не могу, времени нет совсем.
Могу предложить такую функцию (для целых чисел):
function root(a:integer;n:Integer):real;
var r: real;
begin
r:=exp(log(abs(a))/n);
if a<0 then root:=-r else root:=r
end;
Переписал для вещественных:
function root(a:real;n:real):real;
var r: real;
begin
if a<0 then a:=-a;
r:=exp(log(a)/n);
if a<0 then root:=-r else root:=r
end;