Pascal/Turbo Pascal - error 200

no se porque me aperece el error 200:division by cero-...AYUDAA


program ejemplo;
uses Colas, Crt; {Suponer que se dispone de una unit que maneja una cola de enteros}
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.

Lee acá:
http://www.driverop.com.ar/pascal.php#3

MUCHISIMAS GRACIAS! AHORA CORRE PERFECTO...SALUDOS!.-