Сосчитать сумму первых n элементов массива с помощью рекурсии(рекурсия по числу элементов) — Pascal(Паскаль)

uses crt;
type Mas=array[1..100] of integer;
{Рекурсивная функция}
function Summa(k:byte;x:Mas):integer;
begin
if k=0 then Summa:=0 else Summa:=x[k]+Summa(k-1,x)
end;
{Основная программа}
var a:Mas;
    i,n,m:Byte;
begin
clrscr;
randomize;
write('Количество элементов массива n=');
readln(n);
for i:=1 to n do
  begin
    a[i]:=Random(20);
    write(a[i],' ');
  end;
writeln;
repeat
write('m=');readln(m);
until(m<=n);
write('Сумма=',Summa(m,a));
readln
end.