Как записать степень в паскале. помогите

Стандартной функции, на сколько я знаю, нет, вот пример "самодельной" функции, возводящей число x в степень y:

function pow(x, y : integer) : integer;
var i, res : integer;
begin
res := 1;
for i:=1 to y do res := res*x;
pow := res;
end;