manejo de archivos

[Neg90]

Buenas nuevamente, tengo un problema, pero no es en delphi es en pascal, creo que el tema va acá y por ahí alguien me puede ayudar.
El tema es el siguiente.. tengo un archivo de tipo record y tengo que convertirlo a un archivo de texto, un .txt lo que hice copila y todo pero cuando llego a la linea append(arch1); el programa se interrumpe, el código es el siguiente...

Código Delphi [-]
procedure Listarpersonas (var arch:archivo;var arch1:archivo2);
var
 p : personas;
begin
  reset (arch);
  assign(arch1,'personas.txt');
  append(arch1);
  while not (eof(arch)) do
    begin
      read(arch,p);
      writeln(arch1,p.nom,' ',p.ape,' ',p.nac);
    end;

end;

arch es el archivo que contiene registros
arch1 es el archivo de texto.

Gracias de antemano .