Viết chương trình nhập vào 1 xâu. Đếm số lần xuất hiện của chữ a trong xâu vừa nhập

uses crt;
var s:string; i,dem:byte;
begin
   clrscr; dem:=0;
   write('Nhap s: '); readln(s);
   for i:=1 to length(s) do
   if s[i]='a' then inc(dem);
   write('Chu a xuat hien ',dem,' lan.');
   readln
end.

  Program Hotboy ;

  Uses crt;

  var Hb:string;

  i,d:byte;

  Begin

  Clrscr;

   D:=0;

   Write('Nhap xau tu ban phim ');         

   Readln(Hb);

   For i:=1 to length(Hb) do

   if (Hb[i]='a') then inc(d);

   write('So ki tu a trong xau do la: ',d);

   Readln

   End.