Pascal/Turbo Pascal - URGENTEE

Porgramadores necesito su opinion o correcion sobre este programita.

Escriba un programa que lea una sucesión de números enteros, que finaliza con 0 e imprima, para cada número, sus dígitos en orden y en orden inverso. Ejemplo: si se leen los números 253 62 0 debe imprimir
2 5 3
3 5 2
6 2
2 6

program tres;
uses colas,pilas, crt;
type
rango=0..9;
var
p:tptr_nodo_pila;
c:tipo_cola;
num,num1:integer;

procedure orden(var p:tptr_nodo_pila;var num1:integer);
var
dig:rango;
begin
writeln('ingrese un numero: ');
readln(num1);
while(num1<>0)do
dig:=num1 mod 10;
st_push(p,num1);
num1:=num1 div 10;
writeln('ingrese un numero: ');
readln(num1);
end;

procedure orden_Inverso(var c:tipo_cola; var num:integer);
begin
while(st_empty (p))and(num<>0)do
begin
st_pop(p,num);
q_push(c,num);
end;
end;

begin
st_create(p);
q_create(c);
orden(p,num);
orden_Inverso(c,num);
writeln(num1,'el numero en orden es: ');
writeln(num,'el numero en orden inverso es: ');
readkey;
end.




MUCHAS GRACIAS!!