Решить систему уравнений с помощью рекурсии - Turbo Pascal

Доброго времени суток! Помогите пожалуйста решить систему с помощью рекурсии. (Паскаль)

Листинг программы

function Step(x:real;n:integer):real;
begin
if n=0 then Step:=1
else if n>0 then Step:=Step(x,n-1)*x
else Step:=Step(x,n+1)/x;
end;

Объяснение кода листинга программы

Создается функция с именем Step, которая принимает два аргумента: x (тип real) и n (тип integer).
В условии if проверяется значение переменной n. Если n равно 0, то функция возвращает 1.
Если значение n больше 0, то функция вызывает саму себя, передавая в качестве аргументов x и n-1.
Если значение n меньше 0, то функция вызывает саму себя, передавая в качестве аргументов x и n+1.
Результат вычисления функции Step сохраняется в переменной Step.
Функция возвращает значение переменной Step.