input : cho tệp xauin.doc chứa các kí tự cả số và chữ output: đưa kết quả ra tệp xauout.txt là số lượng của từng chữ cái có trong tệp , mỗi kết quả trên một hàng

uses crt;
var f,f1:text; s:string; d,i:longint;
begin
clrscr;
   assign(f,'xauin.doc');reset(f);
   assign(f1,'xauout.txt');rewrite(f1);
      while not(eof(f)) do 
         begin  
            readln(f,s); d:=0;
            for i:=1 to length(s) do 
               if upcase(s[i]) in ['A'..'Z'] then inc(d);
            writeln(f1,d);
         end;
   close(f1); 
   close(f);
end.

program bai_giai;
uses crt;
var f,g:text;
    s:string;
    i,j:byte;
    tg:char;
begin
    Assign(f,'xauin.doc');  reset(f);
    Assign(g,'xauout.txt'); rewrite(g);
    readln(f,s);
    for i:=1 to length(s)-1 do
        for j:=i+1 to length(s) do
            if s[i]>s[j] then
                begin
                    tg:=s[i]; s[i]:=s[j]; s[j]:=tg;
                end;
    j:=1;
    for i:=2 to length(s) do
        if s[i]=s[i-1] then j:=j+1
        else
            begin
                writeln(g,s[i-1],' : ',j);
                j:=1;
            end;
    writeln(g,s[length(s)],' : ',j);
    close(F); close(g);
end.