Рекурсивная функция: среднее массива

[sw47]

Задача
Написать рекурсивную функцию, которая возвращает среднее из n элементов массива чисел.

Решение
Насколько я понял, надо найти среднее арифметическое элементов массива.

Моя рекурсивная функция считает только сумму, а среднее арифметическое вычисляется уже в самой программе при выводе.
Подскажите, как сделать чтобы среднее арифметическое считалось в самой функции.

program recurs;
type
LinMas=array[1..100] of integer;
var
a:LinMas;
i,n:byte;

Function Summa(N:Byte;A:LinMas):real;
begin
if n=0 then Summa:=0 else summa:=a[n]+summa(n-1,A);
end;
begin
WriteLn('Введите количество элементов массиве');
ReadLn(n);
Randomize;
for i:=1 to n do
 begin
 {a[i]:=-10+Random(90); }
 writeln('Введите элемент');
 readln(a[i]);
 end;
 for i:=1 to n do
 writeln(a[i]);
 readln;
 writeln('Среднее: ',Summa(n,a)/n);
 readln;
end.

Добавил счетчик итераций. Вроде функция работает корректно.
Можно как-то задать рекурсию среднего арифметического математически, без счетчика?

Function Summa(N:Byte;A:LinMas):real;
const
sc:word=0;
begin
inc(sc);
if n=0 then Summa:=0 else summa:=a[n]+summa(n-1,A);
if sc=n+1 then writeln('Среднее из функции: ',summa(n,a)/n);
end;

[GetMax]

Предлагаю такой вариант

Function Summa(N,k:Byte):real;
begin
  If N = 0 then Summa:=0
  else
  summa:=summa(n-1,k)+(a[n]/k);
end;

Где k=n