Рекурсия. Вычислить рекурсивно функцию вида y=cos(x)+cos(x^2)+cos(x^3)+...+cos(x^n).

Program ret;
const
 max=10;
var
stepen,argyment:integer;
t,y:real;
{---------------------------------------------------}
 
Function Vvod:integer;
var
 st:integer;
 s:string;
 er:integer;
begin
repeat
  write('Введите максимальную степень:');
  readln(s);
  val(s,st,er);
  if er<>0 then
    writeln('ошибка!введите число')
  else
    if st>max then
      writeln('ошибка!значение должно быть < max')
  else
    If st<0 then
      writeln('ошибка!значение должно быть  >0');
until(er=0) or (st<max) or (st>0);
Vvod:=st;
end;
{---------------------------------------------------}
Function Arg:integer;
var
 x:integer;
 er:integer;
 s:string;
begin
repeat
  write('введите значение агрумента:');
  readln(s);
  val(s,x,er);
  if er<>0 then
    writeln('ошибка!Введите число');
until(er=0);
Arg:=x;
end;
{-----------------------------------------------}
Function Schet(a,b:integer):real;
begin
t:=0;
  if a=0 then
    Schet:=1
  else
     Schet:=b*Schet(a-1,b);
 
end;
{---------------------------------------------------}
 
begin
 
stepen:=Vvod;
argyment:=Arg;
t:=t+cos(Schet(stepen,argyment));
writeln('Значение функции',t:3:3);
end.

uses Crt;
var
  x, n: Integer;
  y: Real;
 
function GetNum(hint: string): Integer;
var
  Tmp: string;
  ErrorCode, Res: Integer;
begin
  repeat
    Write(hint);
    ReadLn(Tmp);
    Val(Tmp, Res, ErrorCode);
    if ErrorCode > 0 then
      WriteLn(Copy(Tmp, 1, ErrorCode - 1), '->', Tmp[ErrorCode], '<-', Copy(Tmp, ErrorCode + 1, Length(Tmp) - ErrorCode));
  until ErrorCode = 0;
  GetNum := Res;
end;
 
function f(const x0, MaxN, CurrentStage: Integer): Real;
var
  Res: Real;
begin
  Res := Cos(Exp(CurrentStage * Ln(x0)));
  if CurrentStage < MaxN then
    Res := Res + f(x0, MaxN, CurrentStage + 1);
  f := Res;
end;
 
begin
  ClrScr;
  x := GetNum('Vvedite nachalnoe znachenie argumenta: ');
  n := GetNum('Vvedite maksimalnoe znachenie stepeni: ');
  y := f(x, n, 1);
  WriteLn('y=',y:5:2);
  ReadLn;
end.