Дана строка, состоящая из символов, каждый из которых является знаком «+» или цифрой, начинающаяся и заканчивающаяся цифрой — Pascal(Паскаль)

Program PascalGuru;

var
  s, sub: string;
  i, n, p, code, summa: integer;

begin
  write('Vvedite stroku: ');
  readln(s);

  if pos('++', s) <> 0 then
    writeln('Error...')
  else
  begin
    summa := 0;
    p := pos('+', s);
    repeat
      sub := copy(s, 1, p - 1);
      delete(s, 1, p);
      p := pos('+', s);

      val(sub, n, code);
      summa := summa + n;
    until p = 0;
    val(s, n, code);
    summa := summa + n;

    writeln('Summa: ', summa);
  end;

  readln;

end.