案例：
某化工厂生产1个批次的产品，需要用到的原料数量为75Kg，已知原料各个批号的数量如下：
原料批号1：96Kg
原料批号2：99Kg
原料批号3：95Kg
原料批号4：93Kg
原料批号5：95Kg
经计算得出各个批次产品所用到的原料批号和数量如下：
第1批次产品： 原料批号1：75Kg
第2批次产品： 原料批号1：21Kg 原料批号2：54Kg
第3批次产品： 原料批号2：45Kg 原料批号3：30Kg
第4批次产品： 原料批号3：65Kg 原料批号4：10Kg
第5批次产品： 原料批号4：75Kg
第6批次产品： 原料批号4： 8Kg 原料批号5：67Kg
以上原料够生产6个批次的产品，最后一个批号的原料剩余28Kg。
求助：请将上面的计算过程用delphi语言实现