Proste potegowanie, rekurencja, konkretne zadanie

function a_k(a: Real; k:integer) : Real;
var
i: Integer;
begin
if k>=0 then begin
                  i:=0;
                  if k>i then begin a_k:=a_k(a, k) * a; i:=i+1; end
                         else if a_k(a,k)=0 then a_k:=1
                                            else a_k:=a_k(a, k);
            end;
if k<0 then begin
                  if k<i then begin a_k:=1/(a_k(a, k) * a); i:=i+1; end
                         else begin a_k:=a_k(a, k); end;
            end;
end;

var
 k : integer;
a: Real;


begin
  readln(a);
  readln(k);
  writeln(a_k(a,k));
  readln;
end. 

function Potega(A, B : Extended): Extended;
var I : Integer;
begin
Result := 1
 for I := 1 to B do
   Result := Result*A;
end;

 program pot;
uses crt;
var
	a,n : Integer;
function potega(a : real;n : Integer) : Real;
begin
	if n > 1 then
		potega:= potega(a,n-1) * a
	else if n = 1 then
		potega:=a
	else if n = 0 then
		potega:=1
end;
begin
        clrscr;
        readln(a,n);
	writeln(potega(a,n));
	readkey;
end.