Написать функцию, которая вычисляет значение a ^b (а в степени b). Числа a и b могут быть любыми дробными положительными числами- Pascal(Паскаль)

program lab;
uses crt;
var
x:integer;
p := real
function Pow(x, y : Real) : Real;
begin
if (x < 0) then P := (-1)*Exp(y*Ln(Abs(x))) else
if (x > 0) then P := Exp(y*Ln(Abs(x))) else
P := 0;
end;
var
x1:real;
y1:real;
begin
clrscr;
write ('введите x');
readln (x1);
write ('Введите y');
readln(y1);
pow(x1,y1);
writeln(p:6:2);
write;
readln
end.