Viết chương trình nhập từ bàn phím 1 xâu ký tự gồm cả chữ và số, đưa ra tệp "Xaukytu.doc" số lượng các chữ a, A, b, B có trong câu

var g: text;
st: String;
i,da,dai,db,dbi: longint;
begin
assign(g,Fo); Rewrite(g);
write(‘Nhap St: ‘); Readln(St);
for i:=1 to length(St) do
begin
if St[i]=’a’ then inc(da);
if St[i]=’A’ then inc(dai);
if St[i]=’b’ then inc(db);
if St[i]=’B’ then inc(dbi);
end;

writeln(g,’Co ‘,da,’ chu a’);
writeln(g,’Co ‘,dai,’ chu A’);
writeln(g,’Co ‘,db,’ chu b’);
writeln(g,’Co ‘,dbi,’ chu B’);
close(g);
end.

Const Fo='Xaukitu.doc';
Var g: text;
    St: String;
    i,da,dai,db,dbi: longint;
Begin
        Assign(g,Fo); Rewrite(g);
        Write('Nhap St: '); Readln(St);
        For i:=1 to length(St) do
        Begin
                If St[i]='a' then inc(da);
                If St[i]='A' then inc(dai);
                If St[i]='b' then inc(db);
                If St[i]='B' then inc(dbi);
        End;

        Writeln(g,'Co ',da,' chu a');
        Writeln(g,'Co ',dai,' chu A');
        Writeln(g,'Co ',db,' chu b');
        Writeln(g,'Co ',dbi,' chu B');
        Close(g);
End.