Написать Процедуру нахождения суммы цифр любого натурального числа

uses crt;
procedure SumCif(s:string; var sm:integer);
var i:integer;
begin
sm:=0;
for i:=1 to length(s) do
sm:=sm+ord(s[i])-48;
end;
var s:string;
    i,sm:integer;
    f:boolean;
begin
clrscr;
repeat
f:=true;
writeln('Введите натуральное число:');
readln(s);
i:=1;
while(i<=length(s))and f do
if not(s[i] in ['0'..'9']) then f:=false
else i:=i+1;
if not f then writeln('Ошибка ввода, повторите');
until f;
SumCif(s,sm);
write('Сумма цифр=',sm);
readln
end.

val (s,V,code);
if code<>0 then f:=false;

var r:real;
i:integer;
s:string;
begin
s:='1234567890123456789012345678903534634654654754456455474564666666666666666666666666666666666666666';
val (s,r,i);
if i=0 then writeln (r);
end.

var r:longint;
i:integer;
s:string;
begin
s:='1435345353';
val (s,r,i);
if i=0 then writeln (r);
end.

sm:=0;
for i:=1 to length(s) do
sm:=sm+ord(s[i])-48;

s:=0;
while n>0 do
 begin
  s:=s+n mod 10;
  n:=n div 10;
 end;

if s[i]='.' then continue;