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

Поставил на проверку русскую "а", если нужно английскую поменяйте в строчке с 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.