var
Str,a:string;
i,count:integer;
begin
Count:=0;
Str:='adfghjkllahhha';
a:='a';
for i:=1 to lenght(Str) do
if Str[i]=a then Count:=Count+1;
end;
Str,a:string;
i,count:integer;
begin
Count:=0;
Str:='adfghjkllahhha';
a:='a';
for i:=1 to lenght(Str) do
if Str[i]=a then Count:=Count+1;
end;
应该是: for i:=1 to length(Str) do