Viết các chương trình vào sâu S. In ra màn hình số lượng kí tự "a" và "A" có trong xâu

//c++ đc ko ạ :<

#include <iostream>
using namespace std;
int main()
{
    string S;
    int a=0,A=0;
    getline(cin,S);
    for(int i=0;i<S.size();i++){
        if(S[i]=='a'){
            a++;
        }
        else if(S[i]=='A'){
            A++;
        }
    }
    cout<<"Trong xau co "<<a<<" ki tu 'a'"<<"\nTrong xau co "<<A<<" ki tu 'a'";
    //samon247
    return 0;
}

var i,t,t1:integer;

     s:string;

begin

write('Nhap xau: '); readln(s);

for i:=1 to length(s) do

if s[i]='a' then inc(t) else if s[i]:='A' then inc(t1);

writeln('So luong ky tu a: ',t);

write('So luong ky tu A: ',t1);

readln

end.