Help me. ☹️☹️ Nhập vào 1 xâu kí tự từ bàn phím. Lập trình đếm xem trong xâu vừa nhập có bao nhiêu kí tự A

program Min;
var s:string;
    i,dem:integer;
begin
    write('Nhap xau: '); readln(s);
  for i:=1 to length(s) do
   S[i]:=upcase(S[i]);
  for i:=1 to length(s) do
  if copy(s,i,3)='A' then inc(dem);

   writeln('So tu "A" xuat hien trong xau la: ',dem);
  readln
end.
P/S : Không biết bạn có yêu cầu phân biệt chữ hoa hay chữ thường không nhỉ : ?

uses crt;
var st : string;
i, dem : integer;
begin clrscr;
write('Nhap xau :'); readln(st);
for i:=1 to length(st) do if st[i]='A' then dem:=dem+1;
write(dem);
readln
end.