Pascal/Turbo Pascal - error al correrlo a la tercera vez,

estoy tratando de hacer este programa pero las primeras 2 o tres veces que lo corro me funciona el error esta en las de mas veces..

si pudieras decirme donde esta el error o corregirme te lo agradeceria...

es el siguiente codigo fuente:

program agenda_programada;
uses
crt,mouse,graph;
type
ptr = ^inf;
inf = record
Nombre:String;
Tel:string;
celop:char;
cel:string;
sig:ptr;
end;
almacena = file of inf;

var
archiv:almacena;
lista,inic,aux:ptr;
nombre:string;
gd,gm:integer;
infor:inf;
op:char;

procedure iniarch;
begin
assign(archiv,nombre);
rewrite(archiv);
close(archiv);
end;

procedure acomoda(var lista:ptr);
var
ordenado:boolean;
begin
inic:=lista;
ordenado:=false;
repeat
ordenado:=true;
aux:=inic;
while (aux^.sig <>nil) do
begin
if (aux^.nombre > aux^.sig^.nombre) then
begin
infor:=aux^;
aux^.nombre:=aux ^.sig^.nombre;
aux^.tel:=aux^.sig^.tel;
aux^.celop:=aux^.sig^.celop;
aux^.cel:=aux^.sig^.cel;
aux^ .sig^.nombre:=infor.nombre;
aux^.sig^.tel:=infor.tel;
aux^.sig^.celop:=infor.celop;
aux^.sig^.cel:=info

Creo que no entro todo el codigo fuente, poorque no me lo mandas por correo para que lo cheque

q error te da? Es posible q pierda memoria por alguna parte... Utiliza MemAvail al principio y al final de programa para verificarlo.