viết phương trình nhập từ bàn phím một xâu có độ dài không quá 200 kí tự. Đưa ra màn hình số tử có trong xâu

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

uses crt;
var        st : string;
i,d : integer;
begin clrscr; d:=0;
write('Nhap xau ki tu :'); readln(st);
for i:=1 to length(st) do if (st[i]=#32) and ((st[i-1] in ['0'..'9']) or (
st[i-1] in ['a'..'z']) or (st[i-1] in  ['A'..'Z'])) then d:=d+1;
write('So tu co trong xau la :',d+1);
readln
end.