[Bargest]

Функция Round округляет дробное до целого.

Код:

 k:=Round(a);