Безотлагательно! Pascal ABC!Дано естественное число N. Вычислите сумму его цифр.При решении

//Pascal ABC.NET v3.1 сборка 1219

Var
 n,s:integer;

 procedure sumforfunclang(n:integer;var s:integer);
 begin
  if ngt;0 then
   begin
    s:=s+n mod 10;
    n:=n div 10;
    sumforfunclang(n,s);
   end;
 end;

 begin
 readln(n);
 sumforfunclang(n,s);
 writeln(s);
end.

Пример ввода:
34
Пример вывода:
7