[Bargest]

Пример "в лоб" (округление в меньшую сторону, как у вас написано в примере):

Код:

var b:real;
...
// b=56.453249
b := trunc(b*10)/10;

Пример 2 (округление более настоящее):

Код:

b:=b*10;
if (b-trunc(b))>0.5 then b:=b+1;
b:=trunc(b)/10;