Найти сумму цифр любого числа с помощью 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.