Найти сумму цифр в числе — Pascal(Паскаль)

program sd;

uses crt;

var
  a: integer;
  s: string;

function sdf(a: string; n: integer): integer;
begin
  if n >= 1 then
    result := result + strtoint(a[n]) + sdf(a, n - 1);
end;

begin
  read(s);
  write(sdf(s, length(s)));

end.