ЛИбо так
x - Ваше число (integer, real)
N - степень (integer)
S - здесь будет результат (integer, real)
i - счётчик (integer)

S:=1;
for i:=1 to N do S:=S*x;

Либо так допавишь у себя в коде

Var chisl, stepen:Real;
Function stn(Var chislo, stepen:Real) of Real;
Var per:real;
Begin
Per:= Abs(chislo);
If chislo < 0 Then Pow:= (-1)*Exp((stepen)*Ln(per))
Else Pow:= Exp((stepen)*Ln(per));
end;
Begin
clrscr;
Write('Введите число = '); readln(chisl);
Write('Введите степень = '); readln(stepen);
Writeln('Возведя в степень получаем = ',stn);
readln;
readln;