Рекурсия. Найти сумму цифр заданного натурального числа

function Sum(N: Longint): integer;
begin
  if N = 0 then
    Sum := 0
  else
    Sum := Abs(N mod 10) + Sum(N div 10)
end;

Uses crt;
function Sum(var N: Longint): integer;
var Summ:integer;
begin
clrscr;
Writeln('vvedite chislo');readln(n);
  if N = 0 then
    summ := 0
  else
 
    Summ := Abs(N div 100)+(N mod 100 ) div 10 + (N mod 100 ) mod 10;Sum:=summ;
end;
var
x:integer;N: Longint;
begin
X:=sum(N);Writeln('x= ',x);readln;
end.

Uses crt;
Procedure delitel;
var Sum,n:integer;
begin
clrscr;
Writeln('vvedite chislo');readln(n);
  if N = 0 then
    sum:= 0
  else
    Sum:= Abs(N div 100)+(N mod 100 ) div 10 + (N mod 100 ) mod 10;
    Writeln('x= ',sum);
 
end;
 
 
begin
Delitel;readln;
end.

var
a:longint;
s:integer;
begin
readln(a);
repeat
s:=s+a mod 10;
a:=a div 10;
until a=0;
writeln(s);
end.