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

uses crt;
var s:string;
    i,dem:byte;
const a='a';
begin
   write('Nhap xau: '); readln(s);
   for i:=1 to length(s) do
   if copy(s,i,1)=a then inc(dem);
   write('So lan xuat hien cua chu "a" la: ',dem);
   readln
end.

$Program$ $tin$_$hoc;$

$Uses$ $crt;$

$Var$ $S:string;$

      $i,k,dem:byte;$

$Begin$

     $Clrscr;$

     $Write ('Nhap$ $xau$ $S:');$ $Readln(S);$

              $k:=length(S);$ 

              $Dem:=0;$

        $FOR$ $i:=1$ $to$ $k$ $do$

        $IF$ $S[i]='a'$ $THEN$ $dem:=dem+1;$

     $Write ('so$ $lan$ $xuat$ $hien$ $ki$ $tu$ $a$ $trong$ $xau$ $S$ $la',$ $dem);$

     $Readln$

$End.$

BẠN THAM KHẢO.