Cho 1 xâu kí tự bất kì, em hãy tính:

uses crt;

const so: set of char=['0','1','2','3','4','5','6','7','8','9'];

var st,b:string;

   a:array[1..100] of integer;

   i,j,l,n,dem,dem1,c:integer;

(*****)

procedure sx(var x,y:integer);

var tam:integer;

begin

    tam:=x;

    x:=y;

    y:=tam;

end;

(*****)

begin

clrscr;

      write('nhap xau:');readln(st);

      dem:=0;

      dem1:=0;

      for i:=1 to length(st) do

      begin

           if (st[i] in['0'..'9']) then inc(dem);

           if (upcase(st[i]) in['A'..'Z']) then inc(dem1);

      end;

      write('Co ',dem1,' chu cai.');

      writeln;

      writeln('Co ',dem,' chu so.');

      l:=length(st); i:=1; n:=0;

      repeat

            if (st[i] in so) then

               begin

                    b:='';

                    repeat

                          b:=b+st[i];

                          inc(i);

                    until (not(st[i] in so)) or (i>l);

                    inc(n);

                    val(b,a[n],c);

               end;

            inc(i);

      until i>l;

      for i:=1 to n do write(a[i]:5);

      writeln;

      writeln('Sx tang:');

      for i:=1 to n-1 do

      for j:=i to n do

      if a[j]<a[i] then sx(a[j],a[i]);

      for i:=1 to n do write(a[i]:5);

readln;

end.