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

СГ>Во-первых, и в главных, не "Ну-ка"-йте тут. Что ещё за моду взяли.

Сергей, это дружественная форма общения. Мы тут давно знаем, кто такой Антон, кто ты, тесный круг общения позволяет между собой иногда отбрасывать условности реального мира. Эта фраза — не оскорбление, это эмоциональный заряд. Поверь, как бы мы не спорили о "всём сущем", к тебе как личности отношение самое дружественное.

СГ>А то ведь, можно и так:

СГ>PROCEDURE Move (VAR src, dst, sum: REAL): BOOLEAN;
СГ>BEGIN
СГ>  IF src >= sum THEN
СГ>    src := src - sum;
СГ>    dst := dst + sum;
СГ>...
СГ>

Ага! И полюбому зачисляем на счёт-приёмник сумму. Здорово. Все бы так уже богачами были.