Pascal/Turbo Pascal - Unir muchos TXT en un solo archivo

program ListaDir;

uses Dos;

var

  Hallado: SearchRec;            { Información sobre el directorio }

                { El tipo SearchRec está definido en la unidad Dos }

  fo,fd:text;

  linea: string;

begin

  Assign(fd,'todos.txt');

  ReWrite(fd);                                           {crea el fichero destino}

  FindFirst( '*.txt', AnyFile, Hallado );       { Los busca }

  append(fd);                                              {Abre el fichero de destino para añadir líneas}

  while DosError = 0 do                         { Mientras existan }

    begin

    Assign(fo, Hallado.Name );

    reset(fo);

    While not eof(fo) do

      begin

        readln(fo,linea); {Lee una linea del fichero de orgien}

        writeln(fd,linea); {Y la añade al final del fichero de destino}

      end;

    close(fo);

    FindNext( Hallado );          { y busca el siguiente }

    end;

    close(fd);

    readln;

end.