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

uses crt;
type mas=array[1..100] of real;
Function Summ(m:mas;a:real;n:integer):real;
  var i:integer;
         s:real;
  Begin
  s:=0;
  for i:=1 to n do
  s:=s+m[i]+a;
  Summ:=s;
  end;
Function Step(a:real;n:integer):real;
  var i:integer;
         s:real;
  Begin
  s:=1;
  for i:=1 to n do
  s:=s*a;
  Step:=s;
  end;
Function Fact(n:integer):real;
  var i:integer;
         f:real;
  Begin
  f:=1;
  for i:=1 to n do
  f:=f*i;
  Fact:=f
  end;
var n,i:integer;
   x,y:mas;
   a,f:real;
  {Главная программа}
BEGIN
  randomize;
  repeat
  write('Размер массивов до ',100,'n=');
  readln(n);
  until n in[1..100];
  writeln('Массив X:');
  for i:=1 to n do
    begin
    x[i]:=10*random;
    write(x[i]:5:2);
    end;
  writeln;
  writeln('Массив Y:');
  for i:=1 to n do
    begin
    y[i]:=10*random;
    write(y[i]:5:2);
      end;
  writeln;
  write('a=');
  readln(a);
   f:=Summ(x,0,n)+Summ(y,a,n)+Step(a,n)+Fact(n);
  write('F=',f:0:2);
  END.

uses crt;
type mas=array[1..100] of real;
function Summ(m:mas;a:real;k:integer):real;
begin
if k=0 then Summ:=a else Summ:=m[k]+Summ(m,a,k-1)+a
end;
function Step(a:real;n:integer):real;
var p,i:longint;
begin
if n=0 then Step:=1
else if n=1 then Step:=a
else if n=-1 then Step:=1/a
else if n>1 then Step:=Step(a,n-1)*a
else Step:=Step(a,n+1)/a;
end;
function Fact(n:integer):real;
begin
if n=1 then Fact:=1
else fact:=n*fact(n-1);
end;
var n,i:integer;
   x,y:mas;
   a,f:real;
  {Главная программа}
BEGIN
  randomize;
  repeat
  write('Размер массивов до ',100,'n=');
  readln(n);
  until n in[1..100];
  writeln('Массив X:');
  for i:=1 to n do
    begin
    x[i]:=10*random;
    write(x[i]:5:2);
    end;
  writeln;
  writeln('Массив Y:');
  for i:=1 to n do
    begin
    y[i]:=10*random;
    write(y[i]:5:2);
      end;
  writeln;
  write('a=');
  readln(a);
  f:=Summ(x,0,n)+Summ(y,a,n)+Step(a,n)+Fact(n);
  write('F=',f:0:2);
  END.