Даны 2 числа. написать процедуру или функцию возведения числа в степень. возвести наибольшее число в степень наименьшего

Паскаль.

uses crt;
var a,n:integer;
begin
clrscr;
write('Введите число: '); read(a);
write('Введите еще одно число: '); read(n);
if a>n then write(a,'^',n,'=',exp(ln(a)*n))
else write(n,'^',a,'=',exp(ln(n)*a));
end.

{P.s. Рабочая, если хотя бы одно из чисел положительное}