Замена слов в строке. Массивы

ArrIn  := ["девчонку", "пелёнку", "Иван"]
ArrOut := ["демона", "топор", "Олег"]
Str = Иван родил девчонку, велел тащить пелёнку.

MsgBox, , Входная строка, %Str%

Loop % ArrIn.MaxIndex()
{
    StringReplace, Str, Str,% ArrIn[A_Index],% ArrOut[A_Index], All
}

MsgBox, , Выходная строка, %Str%