Паскаль. Тип данных строка символов. Напишите программу, которая заменяет символ "А" символом "*"

Предыдущий
вопрос Следующий
вопрос

Пример программы на Pascal:

program ReplaceChar;
var
str: string;
i: integer;
begin
writeln('Введите строку:');
readln(str);
for i := 1 to length(str) do
begin
if str[i] = 'A' then
str[i] := '*';
end;
writeln('Результат замены символов:');
writeln(str);
end.

При вводе строки, содержащей символы "A", программа заменит их на "*".