Como resolver este problema com um Procedimento

Colegas uso D7 + Firebird 2.1 + dbexpress.
Meu problema é o Seguinte:

Preciso gerar fichas de produção para fábrica de calçados por agrupamento para a secção do corte;

Veja a Tarefa:
Linha - 2009 - Sandália Feminina
Referencia= 1020
cor =020 - Bege

Grade= 33 34 35 36 37 38 39 40
Pares = 15 25 40 50 80 60 40 20
Qde.por caixa= 12

Os cortadores pegam os diversos pedidos e agrupam quando for a mesma referencia e cor para facilitar na hora de trocar de ´facas´

A ficha de produção deve sair mais ou menos assim:

===================================
Ficha de Produção nº 001
Secão: Corte

Linha - 2009 - Sandália Feminina
Referencia= 1020
cor =020 - Bege

------------------ G R A D E -------------------------------
33 34 35 36 37 38 39 40 Pares
---- ---- ---- ---- ---- ---- ---- ---- ------
12 12

=====================================

===================================
Ficha de Produção nº 002
Secão: Corte

Linha - 2009 - Sandália Feminina
Referencia= 1020
cor =020 - Bege

------------------ G R A D E -------------------------------
33 34 35 36 37 38 39 40 Pares
---- ---- ---- ---- ---- ---- ---- ---- ------
03 09 12

=====================================

===================================
Ficha de Produção nº 003
Secão: Corte

Linha - 2009 - Sandália Feminina
Referencia= 1020
cor =020 - Bege

------------------ G R A D E -------------------------------
33 34 35 36 37 38 39 40 Pares
---- ---- ---- ---- ---- ---- ---- ---- ------
12 12

=====================================
Visualizando a questão fica assim:

A Grade 33 =0
A grade 34 = 16 pares (25-9)

E assim sucessivamente até terminar com a grade 40

A questão final é : Como implementar. Nunca Fiz. Qual algorritimo utilizar

Que laços utilizar - For - Next - While - do If - else

Preciso de uma ´Luz´ para que no final do mês consigo salvar o meu
´Caviar´!!!!!

Colegas que programam para fábricas de calçados, acredito que já depararam com este problema e... se puder me ajudar.. agradeceria muito.

Fico no aguardo..

Obrigado a todos/Hélio