Nhập từ bàn phím 1 xâu đếm số lần xuất hiện ký tự A trong xâu S = "Hoang_Van_Nam"

Program BTT;
Uses crt;
Var S: String;
    i,d: longint;
Begin
        Clrscr;
        Write('Nhap S: '); Readln(S);
        d:=0;
        For i:=1 to length(S) do
                If S[i]='A' then inc(d);
        Write('Co ',d,' ky tu A');
        Readln
End.

Program bt;
Uses crt;
Var S: String;
      i,d: integer;
Begin
        Clrscr;
        Write('Nhap S: '); Readln(S);
        d:=0;
        For i:=1 to length(S) do If S[i]='A' then inc(d);
        Write('Co ',d,' ky tu A trong xau S');
        Readln;
End.