viết chương trình tách số ra khỏi xâu ,rồi tính tổng (pascal)

uses crt;
var s:string;
    i,k,t:longint;
begin
    clrscr;
    readln(s);
    t:=0;k:=0;
    for i:=1 to length(s) do
        if s[i] in ['0'..'9'] then
            k:=k*10 + ord(s[i]) - 48
        else
            begin
                t:=t+k;
                k:=0;
            end;
    writeln(t+k);
readln;
end.