Ajuda com exercicios Pascalzim

[GhotenMz]

Dae, tenho que fazer 20 exercícios em pascalzim, 18 eu já fiz só falta esses 2.

 

19 - Faça um algoritmo que leia N valores numéricos inteiros, o programa terminará de ler valores quando o valor 0 (zero) for informado. Após isto será apresentado o total de unidades, dezenas, centenas e miliares em diante. 

 

20 - Modifique o exercício acima, fazendo com que o mesmo receba apenas números positivos.

 

Galera se alguém puder me ajudar não estou conseguindo de jeito nenhum fazer esses 2, e tenho que mandar ate domingo de noite, ajuda ae galera to precisando.