[abcdef]

тип real с большими погрешностями даже в элементарных операциях, используй преобразование trunc, а лучше сразу mod.

p.s.: сравнение на равенство ни когда не используй для дробных чисел, надо так: if abs(t-1)<0.001 then ...