Pascal/Turbo Pascal - verificar programa

necesito saber si lo q eh hecho esta bien o mal...alguien me daria su opinion...gracias.

program ejemplo;
uses Colas, Crt;
var colaN:tipo_cola;
elem:integer;
begin
writeln ('Ingrese un elemento: ');
readln(elem);
while elem <> 0 do
begin
q_push(colaN,elem);
writeln ('Ingrese un elemento: ');
readln(elem);
end;
writeln('Los elementos de la cola son: ');
q_pop(colaN,elem);
while not q_empty(colaN) do
begin
q_pop(colaN,elem);
writeln (elem);
end;
readkey;
end.

Simple, compilalo, si compila lo lograste sino fallaste en algo.
En caso de que quieras saber si tu codigo actua como debe actuar, podrias comentarlo asi sabemos cual es el objetivo del programa.