заменить в каждой строке все трехзначные слова. Procedure (Pascal)

[Клетка]

Помогите с решение задачи по Паскалю.
Нужно заменить в каждой строке все трехзначные слова на "***".
Оформить нужно, используя подпрограмму procedure, но трудность в основном в команде pos, первый раз ее встречаю. Времени нет, к сожалению, разбираться. Надеюсь на вашу помощь.

С уважением...


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.