for Select aaaa from bbb into ccc do 
//выбираем платежи котрые надо разнести и погасить ими деб.задолженность  
// ссс - сумма платежа
 begin
  while ccc> 0  do
      begin
          for select ddd from eee into jjj do
          //выбираем дебиторские задолженности в jjj и гасим их суммой платежа 
                  begin
                  ...
                  ...
                  ccc=ccc-eee;
//!!!Если после этой операции ссс= 0  - перебор выборки деб.зад. ПРЕКРАТИТСЯ?
                  ...
                  ...  
//!!! Если здесь сделать проверку на ссс= 0  и зделать BREAK прервется цикл переборки деб. задолженности или и внешний цикл ?
                  end
      end
 end