下のコードすごく無駄に書いている気がするのですが、
スマートにまとめることはできますか？

if a > 10 then a := -10;
if a < -10 then a := 10;
if b > 10 then b := -10;
if b < -10 then b := 10;
if c > 10 then c := -10;
if c < -10 then c := 10;
if d > 10 then d := -10;
if d < -10 then d := 10;
if e > 10 then e := -10;
if e < -10 then e := 10;
if f > 10 then f := -10;
if f < -10 then f := 10;