Здравствуйте, Сергей Губанов, Вы писали:

СГ>PROCEDURE Move (VAR src, dst, sum: REAL): BOOLEAN;
СГ>BEGIN
СГ> IF src >= sum THEN
СГ> src := src — sum;
СГ> dst := dst + sum;
СГ>...
СГ>[/pascal]

Совершенно очевидно, что такой код к использованию не пригоден, правда?
А вообще — слишком много внимания к проблеме, не стоящей выеденного яйца. Комрад не понимает, что такое исключения и пытается бороться с несуществующими проблемами. Пускай борется в одиночку.