Найти сумму цифр всех элементов массива

uses crt;
type mas =array[0..100] of integer;
var s,i,n:integer;
    a: mas;
procedure sum(a: mas; var s: integer);
var x,i: integer;
begin
 for i:=1 to n do
  begin
   x:=a[i];
   while x<>0 do
    begin
     s:=s+(x mod 10);
     x:=x div 10;
    end;
  end;
 writeln('Сумма цифр массива: ',s);
end;
begin
 write('введите размерность:');
 readln(n);
 for i:=1 to n do
  begin
   write('введите ',i,' число: ');
   readln(a[i]);
  end;
  sum(a,s);
  readln;
end.

const
  nmax=100;
type
  Tarr=array[1..nmax] of integer;
var
  a:Tarr;
  i,n,s:integer;
function SumDigits(a:integer):byte;
begin
  if a=0 then
    SumDigits:=0
  else
    SumDigits:=a mod 10+SumDigits(a div 10);
end;
begin
  randomize;
  repeat
    write('Razmer massiva, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=random(50)+1;
      write(a[i]:4);
    end;
  writeln;
  s:=0;
  for i:=1 to n do
    inc(s,SumDigits(a[i]));
  write('S=',s);
end.

const
  nmax=100;
type
  Tarr=array[1..nmax] of integer;
var
  a:Tarr;
  i,n:integer;
function SumDigits(a:integer):byte;
begin
  if a=0 then
    SumDigits:=0
  else
    SumDigits:=a mod 10+SumDigits(a div 10);
end;
function SumArr(const x:Tarr;arrSize:integer):integer;
begin
  if arrSize=0 then
    SumArr:=0
  else
    SumArr:=SumDigits(x[arrSize])+SumArr(x,arrSize-1);
end;
begin
  randomize;
  repeat
    write('Razmer massiva, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=random(50)+1;
      write(a[i]:4);
    end;
  writeln;
  write('S=',SumArr(a,n));
end.