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