Написать программу, которая высчитывает сумму всех чисел входящих в строку — Pascal(Паскаль)

uses crt;
const cf=['0'..'9'];
var s,s1:string;
    n,i,j,k:byte;
    sm,t,c:integer;
begin
clrscr;
writeln('Введите строку, содержащую числа и другие символы:');
readln(s);
writeln('Числа, входящие в строки:');
sm:=0;
for j:=1 to length(s) do
if (s[j] in cf)and not (s[j-1] in cf) then{если цифра, а перед ней не цифра}
 begin
  k:=j;s1:='';
  while (s[k] in cf)and(k<=length(s))do {пока цифры и не конец строки}
   begin
    s1:=s1+s[k];{составляем слово}
    k:=k+1;{по 1 символу}
   end;
  write(s1,' ');
  val(s1,t,c);
  sm:=sm+t;
 end;
writeln;
writeln('Сумма=',sm);
readln
end.