Найти значение выражения заданного строкой - Pascal

Формулировка задачи:

Помогите пожалуйста с данным заданием: Дана строка символов S, содержащая арифметическое выражение - сумму двух натуральных чисел. Найти значение этой суммы. Пример: вход "123+5558", выход 5681.

Решение задачи: «Найти значение выражения заданного строкой»

Листинг программы

var s,s1:string;
     a,b,k,sum:integer;
..........................................
s1:=copy(s,1,pos('+',s)-1);
delete((s,1,pos('+',s));
val(s1,a,k);
val(s,b,k);
sum:=a+b;

Объяснение кода листинга программы

Переменные s и s1 объявлены как строки.
Переменные a, b и k объявлены как целые числа.
Строка s инициализируется значением Hello, World!.
Строка s1 инициализируется копией строки s, начиная с первого символа и до позиции '+'.
Строка s удаляется от позиции '+', используя оператор delete.
Значение s1 присваивается переменной a.
Значение s присваивается переменной b.
Сумма a и b присваивается переменной sum.