ゴメン
× TofF := Pos(a,b) > 0;
○ TofF := Pos(b,a) > 0;