Vladimir_S

Простите великодушно, но я решительно не вижу места, куда там можно это ветвление всунуть и вообще зачем там оно.

Valet

что значит Trunc и Word, можно без Word ?

Vladimir_S

Без Word можно: заменяйте его на Integer.
Trunc (функция) - округление вещественного числа до целого путем "отбрасывания" дробной части С ИЗМЕНЕНИЕМ ТИПА переменной.
Round (функция) - то же, что Trunc, но не с "отбрасыванием", а с округлением.
Trunc(8.75) = 8
Round(8.75) = 9
Использование одной из этих функций в данной программе ПРИНЦИПИАЛЬНО.
Можно, впрочем, обойтись и без этого - тогда придется заменить цикл с (for...to...do) на, например, (Repeat...Until).