from = InputBox("変換前の文字列を入力してください。");
to = InputBox("変換後の文字列を入力してください。");

if (len(from) != len(to)) {
  MessageBox("文字列の長さが一致しません。");
  return;
}

for (y = 1; y <= Bottom; y++) {
  s = [x,y];
  result = "";
  for (i = 1; i <= len(s); i++) {
    p = pos(from, mid(s, i, 1));
    if (p > 0) {
      result += mid(to, p, 1);
    } else {
      result += mid(s, i, 1);
    }
  }
  [x,y] = result;
}