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

Program Pr1; uses crt; var stroka,tmp: string; i,a,b,c: integer; Beginclrscr; 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.