Viết chương trình xây dựng thủ tục đếm số lượng kí tự chữ số trong xâu Giúp em với ạ :v Thanks :3

uses crt;
var s:string; i,dem:byte;
begin
   clrscr;
   write('Nhap xau: '); readln(s);
   for i:=1 to length(s) do
   if (s[i]>='0') and (s[i]<='9') then inc(dem);
   write('So luong ky tu chu so trong xau la: ',dem);
   readln
end.

program ct;

uses crt;

var S:string;

      dem,i:integer;

begin clrscr;

   write('Nhap xau S: '); readln(S);

   for i:=1 to length(S) do

     if (S[i]>='0') and (S[i]<='9') then inc(dem);

   write('So luong ky tu chu so trong xau: ',dem);

readln;

end.

Học tốt!