Вычисление количества букв "А" в предложении

var
  s : string;
  i, p : integer;
begin
  p := 0;
  write('строка: ');
  readln(s);
  for i := 1 to length(s) do
    if s[i] = 'A' then inc(p);
  writeln('количество символов "A": ', p);    
  readln
end.

uses crt;
var s:string;
k,i:byte;
begin
writeln('Vvedi stroku');
readln(s);
for i:=1 to length(s) do
if s[i]='A' then inc(k);
writeln('Kol-vo ',k);
end.

if s[i]='A' then inc(k);

if s[i]='a' then inc(k);

if upcase(s[i]) = 'A' then inc(p);

uses crt;
var s:string;
i:byte;
begin
writeln('Vvedi stroku');
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then writeln(s[i+1]);
end.

uses crt;
var s:string;
i:byte;
begin
writeln('Vvedi stroku');
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then begin
writeln('Dlina ',i-1);
break;
end;
end.