Viết chương trình nhập xâu A từ bàn phím có độ dài 150 kí tự đếm xem xâu vừa nhập có bao nhiêu kí tự số

program oken;
uses crt;
var s: string;
    i,dem: byte;
begin
    clrscr;
    write('Nhap xau: '); readln(s);
    dem:=0;
    for i:=1 to length(s) do
        if (s[i] in ['0'..'9'] )then
            dem:=dem+1;
    writeln('So ki tu so trong xau: ',dem);
    readln;
end.

program Min;
var s:string;
i,dem:integer;
begin
 write('Nhap xau: '); readln(s);
 for i:=1 to length(s) do
 S[i]:=upcase(S[i]);
 for i:=1 to length(s) do
 if copy(s,i,3)='HOA' then inc(dem);
  writeln('So tu "hoa" xuat hien trong xau la: ',dem);
 readln
end.