Рекурсия:сумма ряда, Нужна помошь Опции

[Bac9]

Хелп!!помагите плз написать программу с рекурсивной функцией вычисляюший сумму элементов одномерного массива

[Bac9]

program rekurciya;
uses crt;
var
i,m:integer;
b:array[1..20] of integer;
function Rec( var a:array of integer;
n:integer):real;
var
X,Y:real;
begin
if n=1 then Rec:=a[0]
else
begin
x:=n+rec(a,n-1);
Rec:=x
end;
end;
begin
Writeln('Vvedite kolichestvo elementov m:');
Readln(m);
writeln('vvedite elementi massiv');
for i:=1 to m do
read(b[i]);
writeln(Rec(b,m)2);
readkey;
end.
вот мои нароботки!!хелп