Cho tệp in.txt bên trong nó có chứa một xâu kí tự .E hãy viết chương trình đếm số lượng kí tự ‘a’ có mặt trong xâu câu in.txt sau đó ghi số lượng tìm

uses crt;
var a,m:text; dem,i:longint; s:string;
begin
clrscr;
   assign(a,’in.txt’);reset(a);
   assign(m,’out.txt’);rewrite(m);
      readln(a,s);

      dem:=0;
      for i:=1 to length(S) do if s[i]=’a’ then inc(dem);
      writeln(m,dem);
   close(m);
   close(a);
end.