Напишите программку,которая:Определяет,сколько раз встречается в строке знаков

Поставил на проверку русскую "а", если необходимо английскую поменяйте в строке с if


var a:string;
i,count:integer;
begin
writeln('Введите предложение;');
read(a);
for i:=1 to length(a) do begin
if (a[i]='а') or (a[i]='А') then begin
count:= count + 1;
a[i]:='*';
end;
end;
write(count);
writeln(' раз встречается буковка а.');
writeln(a);
end.