Nhập 1 xâu từ bàn phím không quá 100 kí tự. Hãy đưa ra màn hình số lượng kí tự 'a' có trong xâu vừa nhập.

var a:string[100];
i,dem:integer;
begin
clrscr;
write(‘Nhap xau: ‘); readln(a);
for i:=1 to length(a) do 
if a[i]=’a’ then inc(dem);
writeln(‘So tu “a” xuat hien trong xau la: ‘,dem);
readln
end.

uses crt;
var a:string[100];
    i,dem:integer;
begin
   clrscr;
   write('Nhap xau: '); readln(a);
   for i:=1 to length(a) do 
   if a[i]='a' then inc(dem);
   writeln('So tu "a" xuat hien trong xau la: ',dem);
   readln
end.

Bạn chạy kiểm tra chương trình giúp mình nhá :D