The RTL System unit contains function Round, which rounds a Real-type value to an Integer-type value. It's input parameter is a real-type expression and Round returns a Int64 value that is the value of the input rounded to the nearest whole number. If the input value is exactly halfway between two whole numbers - N.5 - then "bankers rounding" is used, with the result being the nearest even number.
function Round(X: Real): int64;
begin WriteLn( Round(8.7) ); WriteLn( Round(8.3) ); // examples of "bankers rounding" - .5 is adjusted to the nearest even number WriteLn( Round(2.5) ); WriteLn( Round(3.5) ); end.
9 8 2 4