Напишите программу, которая подсчитывает сумму цифр заданного числа

12 program sd; 3 uses crt; 4 var s: string; 5 i,k,code,sum: integer; 6 Begin7 sum: =0; 8 writeln (' s: '); readln (s); 910 for i: =1 to length (s) do11 begin12 val (s[i],k,code); 13 if code=0 then sum: =sum+k; 14 end; 1516 if sum=0 then writeln ('В строке нет цифр') 17 else18 writeln ('Summa=',sum); 19 End.20