Nhập 1 dãy kí tự VD:ABC152CD213 in ra 14 làm trong pascal

uses crt;
var  n:string;
s,i:integer; 
begin
clrscr;
readln(N);
for i:=1 to length(n) do
 if n[i] in ['0'..'9'] then s:=s+ord(n[i])-48;
write(s);
readln
end.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

const huy = ['0'..'9'];
var str : string;
    sum_int, i, res : integer;
begin
    readln(str);
    sum_int := 0 ;
    for i := 1 to length(str) do 
        if str[i] in huy then 
             begin
            val(str[i],res);
            inc(sum_int,res);
             end ;
    write(sum_int);
end .