Sử dụng NNLT pascal, viết chương trình nhập vào từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của chữ 'a' trong xâu s

Program FNG;
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(d);
        Readln
End.

Program Hotboy;

Uses Crt;

Var  xau:String;

     dem,i:shortint;

Begin

clrscr;

dem:=0;

Write(‘Nhap xau ‘); Readln(xau);

For i:=1 to length(xau) do 

if S[i] ='a' then dem:=dem+1;

Write(‘co so lan xuat hien cua chu a la',dem);

End.