Ai giúp mình đi ạ :(( 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 s : string; k, i : byte;

begin

clrscr;

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

if length(s) <= 200 then

begin

k := 0;

for i := 1 to length(s) do

begin

if s[i] in ['A'..'Z'] then k := k + 1;

if s[i] in ['a'..'z'] then k := k + 1;

end;

writeln('So tu co trong xau : ', k);

end;

readln

end.