nhập vào một xâu kí tự r in ra màn hình, in ra các chữ và chữ số có trong xâu kí tự. vd: dfh3hj4n3 số:3 4 3 chữ d f h h j n giúp mình với, cảm ơn rất

uses crt;
var s:string; i:longint;
begin
clrscr;
   write(‘S=’);readln(s);
   write(‘So: ‘);
   for i:=1 to length(s) do if s[i] in [‘0′..’9′] then write(s[i],’ ‘);
   writeln;
   write(‘Chu: ‘);
   for i:=1 to length(s) do if upcase(s[i]) in [‘A’..’Z’] then write(s[i],’ ‘);
readln
end.