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