function AbsoluteValueOf(Value : integer) : integer; begin if Value >= 0 then Exit(Value) else Exit(Value * -1); end;