Составить процедуру, которая во введенной строке заменяет все буквы "а" на "*". Помогите написать программу в Pascal

[Tanya121]

Доброго Всем вечера! Возникла проблема в написании программы в Pascal!
Составить процедуру, которая во введенной строке заменяет все буквы "а" на "*".

[Serge_Bliznykov]

procedure ChangeAll_charA_On_Asterix(var pS : string);
var i : integer;
begin
  for i:=1 to Length(pS) do
    if pS[i]='a' then pS[i]:='*';
end;

var s : string;
begin
  ReadLn(s):
  ChangeAll_charA_On_Asterix(s);
  WriteLn(s);
  ReadLn
end.

[Tanya121]

Спасибо большое!!!

[Вадим Мошев]

Сообщение от Serge_Bliznykov

procedure ChangeAll_charA_On_Asterix

Сергей, этот символ называется "Астериск". А астерикс это вот:

[Serge_Bliznykov]

Сообщение от Вадим Мошев

Сергей, этот символ называется "Астериск". А астерикс это вот: