Đếm ký tự số

Viết chương trình đếm số ký tự chữ số trong một xâu ký tự được nhập vào từ bàn phím.
                                                                 Giải
Var
       i,code,vg,t:integer;
       s: String;
BEGIN
       Write('Nhap chuoi: '); Readln(s);
       For i:=1 to length(s) do
           Begin
               Val(s[i],vg,code);
               if code = 0 then t:=t+1;
           End;
       Writeln('So ki tu so trong chuoi la: ',t);
       Readln;
END.