Напишите на paskal введите строку в которой записана сумма натуральных чисел например '1+25+3'

Var
  i, sum, beg:integer;
  str:string;

begin
  sum:=0;
  beg:=1;
  readln(str);
  for i:=1 to Length(str) do
    if str[i]='+' then
    begin
      sum:=sum+StrToInt(Copy(str, beg, i-beg));
      beg:=i+1;
    end;
  sum:=sum+StrToInt(Copy(str, beg, Length(str)));
  writeln(sum);
end.