#pas
 // if  ArrIn1._Count>ArrIn2._Count then n:=ArrIn2._Count else n:=ArrIn1._Count;
 n := min(ArrIn1._Count, ArrIn2._Count);