Pascal/Turbo Pascal - Encolar con prioridad

Hola he tenido que diseñar el procedimiento de encolar con prioridad de la siguiente forma, pero al utilizar el procedimiento encolar normal, me da error al incrementar el final y no se encontrar el porque, espero vuestras respuestas rápidas porfavor, gracias.

PROCEDURE Encolar(VAR cola_circular:t_ColaCircular;proceso:t_proceso);
BEGIN
if ColaCircular_Llena(cola_circular) then {Mientras no este llena...}
writeln('La cola esta llena, desencole primero')
else
begin
inc(cola_circular.final);{...incrementa 1 el final...}
cola_circular.procesos[cola_circular.final]:= proceso;{... y añade el proceso}
end;
END;

PROCEDURE Encolar_Con_Prioridad (proc:t_proceso; VAR cola:t_ColaCircular);
VAR i:integer;cola_aux:t_ColaCircular;
BEGIN
if ColaCircular_Llena(cola) then
writeln('La cola esta llena, desencole primero')
else {Mientras la cola circular no este llena...}
begin
i:=cola.frente;{"i" es el contador que ira avanzando el frente}
repeat
begin
if Prioridad_Mayor(cola.procesos[i],proc) then {Si la prioridad es mayor...}
begin
Encolar(cola_aux,proc);{1º Introduce el proceso del fichero...}
Encolar (cola_aux,cola.procesos[i]);
{...y luego el correspondiente a la posición que tocara}
end {END del if del Repeat:"Prioridad Mayor"}
else {Si la prioridad no es mayor...}
Encolar(cola_aux,cola.procesos[i]); {En cola el proceso correspondiente}
inc(i); {Incrementa el frente}
end;{END del Repeat}
until Prioridad_Mayor(cola.procesos[i],proc) or (i=cola.final);
{Lo repite hasta que se haya introducido el proceso del fichero, o hasta
que se llegue al final de la cola}
if (i=cola.final) then {Si la cola a llegado a su fin...}
begin
Encolar(cola_aux,proc); {...encola finalmente el proceso del fichero...}
cola:=cola_aux; {...y asigna la cola utilizada en el programa principal
a la cola auxiliar utilizada en el procedimiento}
end
else {Si el proceso del fichero se ha introducido ya..}
begin
repeat
Encolar(cola_aux,cola.procesos[i]);
inc(i);
{Continua encolando todos los demás hasta llegar al final de la cola}
until (i=cola.final);
cola:=cola_aux; {Y asigna la cola a la cola auxiliar utilizada}
end; {END del 3º ELSE: "Fichero ya introducido"}
end; {END del 1º ELSE: "Mientras la cola circular no este llena"}
END;