Рекурсивная функция: посчитать сумму элементов динамического массива

type IntArr = array of integer;
procedure print(a: IntArr);
var i: integer;
begin
  for i:=0 to Length(a)-1 do
    write(a[i],' ');
end;
var a:intarr;
s:integer;
begin
s:=0;
randomize;
for var i:=1 to 9 do begin
a[i]:=random(10);
print(a[9]);
end;
for var i:=1 to 9 do begin
s:=s+a[i];
writeln(s);
end;
end.

begin
  var a := ArrRandomInteger(ReadInteger('Размер массива: n ='),0,9);
end.

begin
  var a := ArrRandomInteger(ReadInteger('Размер массива: n ='),0,9);
  Write('Создан массив: a = '); a.Println;
end.

begin
  var a := ArrRandomInteger(ReadInteger('Размер массива: n ='),0,9);
  Write('Создан массив: a = '); a.Println;
  WriteLn('Рекурсивная функция суммы: сумма = ', rSum(a));
end.

function rSum(a : array of Integer; index : Integer := 0) : Integer :=
  (index < a.Length ? a[index] + rSum(a, index+1) : 0);

function rSum(a : array of Integer; index : Integer := 0) : Integer :=
  (index < a.Length ? a[index] + rSum(a, index+1) : 0);
 
begin
  var a := ArrRandomInteger(ReadInteger('Размер массива: n ='),0,9);
  Write('Создан массив: a = '); a.Println;
  WriteLn('Рекурсивная функция суммы: сумма = ', rSum(a));
  WriteLn('Встроенная функция суммы:  сумма = ', a.Sum);
end.