Bueno, Monik, aquí te dejo una posibilidad:
program test;
function Potencia(base,exp : LongInt) : LongInt;
var
i : LongInt;
aux : LongInt;
begin
aux:=1;
for i:=1 to exp do
aux:=aux * base;
Potencia:=aux;
end;
var
base,exp : LongInt;
begin
write('Base: '); readln(base);
write('Exponente: '); readln(exp);
write('Resultado: ',Potencia(base,exp));
readln;
end.
Un beso!