Найти сумму чисел, присутствующих в тексте

[Veryn4ik1993]

ФОРМУЛИРОВКА: Найти сумму чисел, присутствующих в тексте.
Пример: исходная строка – «11 сентября 2012 года»
результат – 2023 (11+2012=2023)
Надо дополнить(то что красным)

program z6;
 var s: string; n,sum,k,i:integer;

begin
  writeln('введите строку');
  readln(s);
   sum:=0;
   for i:=1 to length(s) do
    if s[i] in ['0'..'9'] then
       begin
       val(s[i],n,k);
    while (n in ['0'..'9']) do
       sum:=sum+n;
       end;
writeln('Сумма цифр ',sum);
readln;
end.

_________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Прошу учесть на будущее...

Модератор.

[BDA]

Точнее, исправить логику

program z6;
var
s: string;
num,sum,i:integer;

begin
writeln('Введите строку: ');
readln(s);
sum:=0;
num:=0;
for i:=1 to length(s) do
	if s[i] in ['0'..'9'] then
		num:=num*10+ord(s[i])-ord('0')
	else
	begin
		sum:=sum+num;
		num:=0;
	end;
sum:=sum+num;
writeln('Сумма чисел: ',sum);
readln;
end.

Работает только с неотрицательными числами.