Найти сумму цифр любого числа с помощью String

Program Pr1;

uses crt;

var stroka, tmp:string;

i, a, b, c:integer;

Begin

clrscr;

writeln ('Введите числа для сложения в форме a+b') ;

readln (stroka) ;

i:=1;

while stroka[i] in ['0' ... '9'] do i:=i+1;

tmp:=copy (stroka, 1, i-1) ;

delete (stroka, 1, i) ;

val (tmp, a, c) ;

val (stroka, b, c) ;

c:=0;

c:=a+b;

writeln (c) ;

end.