Pascal/Turbo Pascal - MODULO DE PROGRAMA QUE N O FUNCIONA

Procedure Emitirlistado(vector: RegVecAux;var Auxi: ArcAuxi;
var BA: ArcZona;PosBA: integer);

var
rBA: RZona;
rAuxi: RegVecAux;
i :word;
Item: integer;

begin
Item:=0;
for i:=0 to 4999 do
if vector.CantInfr>10 then begin
Item:=Item+1;
repeat Suprimir(vector.ColaFte, vector.ColaFin,PosBA);
seek(BA,PosBA);
read(BA,rBA);
write('Item', Item,'Nro. de Patente:' );
until vector.ColaFin^.sgte=nil
end;
while not eof(Auxi) do
read(Auxi,rAuxi);
if rAuxi.CantInfr>10 then begin
Item:=Item+1;
repeat Suprimir(rAuxi.ColaFte, rAuxi.ColaFin, PosBA);
seek(BA,PosBA);
read(BA,rBA);
write('Item:', Item,'Nro. de Patente:' );
until vector.ColaFin^.sgte=nil
end
end;

Necesito saber si está bien esto, porque el programa no me funciona a pesar de que corre. En este módulo lo que intento hacer es leer primero un registro que contiene 3 campos (cantidad de infracciones, colafte y colafin)...luego si la cantidad d infracciones es mayor a 10 empiezo a recorrer los nodos a los q apunta el ptr porque en ellos tengo guardada la referencia al archivo original del cual debo imprimir todo el registro.
Lo mismo despues , pero en vez de ser un array (q tenia 5000 registros)es un archivo, el cual tiene tambien esos tres campos(n total tiene 6000 registros). Esta hecho asi porque el profesor lo requeria.
Muchas graciasssss

ajajajajja estas con el carnicero de hugo cuello? jajajaj ni siquiera se gastó en cambiar el TP, el nodo tenia que contener la referencia a bs as y la clave de ordenamiento, es todo lo que recuerdo....

hola soy principiante en el tema del turbo c, estoy en cuarto y me lo lleve a diciembre necesito una mano para ese dia de la prueba.....me dieron n programa para hacer sobre_ el pirata_estoy hasta la mano si no lo apruevo.