Viết chương trình nhập vào bàn phím một xâu thông báo ra màn hình chữ xâu in hoa và chữ cái thường và chữ số

uses crt;
var i:longint; s:string;
begin 
clrscr;
   write('S=');readln(s);
   write('Chu hoa: ');
   for i:=1 to length(s) do 
      if s[i] in ['A'..'Z'] then write(s[i]);
   writeln;
   write('Chu thuong: ');
   for i:=1 to length(s) do 
      if s[i] in ['a'..'z'] then write(s[i]);
   writeln;
   write('Chu so: ');
   for i:=1 to length(s) do 
      if s[i] in ['0'..'9'] then write(s[i]);
readln 
end.

uses crt;
var s:string;
    i:longint;
begin
clrscr;
    readln(s);
    for i:=1 to length(s) do
        if s[i] in ['A'..'Z'] then write(s[i]);
    writeln;
    for i:=1 to length(s) do
        if s[i] in ['a'..'z'] then write(s[i]);
    writeln;
    for i:=1 to length(s) do
        if s[i] in ['0'..'9'] then write(s[i]);
readln;
end.