ПРОГРАММА НА PASCAL! Распечатать введенную строку, удалив из нее символы, не являющиеся буквами и цифрами, и ЗАМЕНИВ КАЖДУЮ ЦИФРУ НА "**"

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

Программа на Pascal:

program FilterString;
var
str: string;
i: integer;
begin
writeln('Введите строку:');
readln(str);
for i := 1 to Length(str) do
begin
if (str[i] in ['0'..'9']) then
write('**')
else if (str[i] in ['A'..'Z']) or (str[i] in ['a'..'z']) then
write(str[i]);
end;
end.

Эта программа считывает строку, затем проходит по каждому символу строки. Если символ является цифрой, он заменяется на "**". Если символ является буквой, он остается без изменений. В результате на экран выводится отфильтрованная строка.