Функция нахождения факториала и суммы на основе рекурсии

Type
    Tmas=array[1..100] of real;
Var    a,b,n,m,i,k:byte;
       nn:integer;
    X,Y:Tmas;
    F:Real;
Function Summa(Dlmas:byte; Mas:Tmas):Real;
    Var Sum:real;  i:byte;
    Begin
    Sum:=0.0;
    For i:=1 to Dlmas do
    Sum:=Sum+Mas[i];
    Summa:=Sum;
    End;
Function step(St:byte;Osn:byte):real;
    Var i:byte; P:real;
    Begin
    P:=Osn;
    For i:=2 to St do
    P:=P*Osn;
    step:=P;
    End;
Function Factorial (var nn: integer): integer;
Var i,z:byte;
  Begin
  i:=1;
  for z:=1 to n do
    begin
     i:=1*z;
    end;
  Factorial:=i;
  End;
{ Главная программа}
BEGIN
   Write('  Введите длину первого массива - N  ');   Readln(N);
   Write('  Введите длину второго массива - M  ');  Readln(M);
   Writeln('   Введите элементы массива X');
   For i:=1 to N do Read(X[i]);  readln;
   Writeln('   Введите элементы массива Y');
   For k:=1 to M do Read(Y[k]); readln;
   Write('   Введите a и b ');  Readln(a,b);
   F:=(Summa(N,X)+ step(N,a))+ (Summa(M,Y)/step(M,a)+ Factorial(nn));
     Writeln('  Полученный результат  F = ',F);
END.

uses crt;
Type
      Tmas=array[1..100] of real;
Var    a,b,n,m,i,k:byte;
       nn:integer;
        X,Y:Tmas;
        F:Real;
function Step(x:real;n:integer):real;
begin
if n=0 then Step:=1
else Step:=Step(x,n-1)*x;
end;
function Fac(n:integer):real;
begin
if n<2 then Fac:=1
else Fac:=Fac(n-1)*n;
end;
function Summa1(x:Tmas;k:byte;a:real):real;
begin
if k=0 then Summa1:=0
else Summa1:=x[k]+Step(a,k)+Summa1(x,k-1,a);
end;
function Summa2(x:Tmas;k,m,n:integer;a:real):real;
begin
if k=0 then Summa2:=0
else Summa2:=x[k]/Step(a,m)+Fac(n)+Summa2(x,k-1,m,n,a);
end;
{ Главная программа}
BEGIN
   Write('  Введите длину первого массива - N  ');   Readln(N);
   Write('  Введите длину второго массива - M  ');  Readln(M);
   Writeln('   Введите элементы массива X');
   For i:=1 to N do Read(X[i]);//  readln;
   Writeln('   Введите элементы массива Y');
   For k:=1 to M do Read(Y[k]);// readln;
   write('a=');readln(a);
   F:=Summa1(x,n,a)+Summa2(y,m,m,n,a);
   Writeln('  Полученный результат  F = ',F);
END.