可以参考下AI写的：

// 定义临时变量

 VAR_TEMP     i : INT;    

 match_count : INT;  // 匹配成功的顺序计数器 END_VAR

 // 初始化

 match_count := 0;

 // 遍历20个word 

FOR i := 0 TO 19 DO  

   // 检查DB1和DB2中相同索引的值是否同时为1    

 IF  DB1.Arr[i] = 1 AND DB2.Arr[i] = 1  THEN      

  // 将DB5中第match_count位的值赋值给DB3中第i位         

DB3.BitArr[i] := DB5.BitArr[match_count];  

  // 匹配计数器加1         

match_count := match_count + 1;  

   END_IF; 

END_FOR;