manejo de colas (listas enlazada circular)

pascal:
program colas_lista_enlazada_circular;

Type
    tCola = ^nodo;
    nodo = Record
         clave : Integer;
         sig : tCola;
    End;

Procedure Crear(Var c1 : tcola);
begin
     c1 := NIL
End;

Function Vacia(c1 : tcola) : Boolean;
Begin
     Vacia := c1 = NIL
End;

Procedure Encolar(Var c1 : tcola; elem : Integer);
Var
   nuevo : tcola;
begin
     new(nuevo);
     nuevo^.clave := elem;
     if c1 = NIL then
        nuevo^.sig := nuevo
     else begin
          nuevo^.sig := c1^.sig;
          c1^.sig := nuevo
     end;
     c1 := nuevo
end;

Procedure Desencolar(Var c1 : tcola; Var elem : Integer);
Var
   nuevo : tcola;
Begin
     elem := c1^.sig^.clave;
     if c1 = c1^.sig then begin
        dispose(c1);
        c1 := NIL
     end
     else begin
        nuevo := c1^.sig;
        c1^.sig := nuevo^.sig;
        dispose(nuevo)
     end
end;

  { Programa de prueba }
Var
   cola : tcola;
   elem : Integer;
begin
     crear(cola);
     if (vacia(cola)) then writeln('Cola vacia');
     encolar(cola, 3);
     desencolar(cola, elem)
end.
¿Ya le viste algún error? Dejanos tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress elimina los tags HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios.

Otro punto antes de comentar, Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

De esta manera el código sale coloreado.

Otro punto importante para muchos que sienten que se les ignora: Todos los comentarios los reviso y en su debido momento los apruebo, pero ojo con el último párrafo.

Para poner los símbolos de las librerías sin que desaparezcan, debes escribir los símbolos de mayor > y menor qué < con su entidad HTML correspondiente, así como el símbolo de &

Mis Algoritmos se reserva el derecho de alterar, publicar o no los comentarios así como cambiar estas reglas de uso.

Si estas de acuerdo, adelante puedes comentar :)

P.D. No le hago tareas a nadie, mejor hagan la mía :P