Проверка элементов массива на совпадение с заданными числами - Pascal ABC

Формулировка задачи:

Задача: мы вводим массив n, затем САМИ ВЫБИРАЕМ НОМЕР ЭЛЕМЕНТА для проверки, т.е. mas[1]-первый элемент, mas[2]- второй и так далее(мы можем выбрать любой элемент, например с конца начать проверку),проверка заключается в том что, если какой-то из этих элементов равен 1,2,3,4,5 меняем цифру на символ * в итоге вывод на экран должен быть, например, таким, **88 программ а изначально вводим 1488 программ

Решение задачи: «Проверка элементов массива на совпадение с заданными числами»

Листинг программы

program forum;
uses crt;
var str:String;
i:integer;
begin
write('vvedite massiv: ');
readln(str);
for i:=1 to length(str) do
begin
if(str[i]='1') or (str[i]='2') or (str[i]='3') or (str[i]='4') or (str[i]='5') then
str[i]:='*';
end;
writeln('vivod: ');
writeln(str);
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных str и i типа String и integer соответственно.
Затем программа запрашивает у пользователя ввести массив строк.
В цикле for происходит проверка каждого элемента массива на совпадение с заданными числами '1', '2', '3', '4' и '5'.
Если элемент массива совпадает с одним из заданных чисел, то он заменяется на символ '*'.
После завершения цикла выводится преобразованный массив.
В конце программы выводится исходный массив.