Funkcja i tablica - problem

Jaki jest tutaj błąd? Wysypuje się przy deklaracji funkcji:

 const maxn=1000;
var a:array[1..maxn] of real;
i:integer;
n:integer;
function srednia(a:array, b:real): real;
var c:real;
d:real;
begin
c:=a[i]*b;
d:=exp(1/*ln(d));
srednia:=d;
end;
Begin
writeln('podaj liczbe n mniejsza niz 1000= ');
readln(n);
randomize;
for i:=1 to n do
a[i]:=random;
end.
(18:51:44) Marta: nie wiem gdzie mam błąd
(18:52:24) Marta: ach i tam zapomniałam dopisać n gdzie jest exp
(18:52:34) Marta: tam 1/n powinno byc
(18:52:41) *JA: to napisz jeszcze raz
(18:53:16) Marta: const maxn=1000;
var a:array[1..maxn] of real;
i:integer;
n:integer;
function srednia(a:array, b:real): real;
var c:real;
d:real;
begin
c:=a[i]*b;
d:=exp(1/n*ln(d));
srednia:=d;
end;
Begin
writeln('podaj liczbe n mniejsza niz 1000= ');
readln(n);
randomize;
for i:=1 to n do
a[i]:=random;
end.

Co masz na myśli mówiąc "wysypuje się"? Jeżeli to się nie da skompilować (nie wiem, nie sprawdzałem) to może powiedz jaki błąd? Będzie łatwiej?

function srednia(a:array, b:real): real;

A teraz nam wytłumacz, co miałeś na myśli pisząc ten fragment kodu...
Poza tym, poczytaj o tablicach dynamicznych.

(1844) Marta: nie wiem gdzie mam błąd
(1824) Marta: ach i tam zapomniałam dopisać n gdzie jest exp
(1834) Marta: tam 1/n powinno byc
(1841) *JA: to napisz jeszcze raz
(1816) Marta: const maxn=1000;

Mi się wydaje że przez to nie działa.