Pascal/Turbo Pascal - archivo de texto, URGENTE !!!

{A qui tienes unos ejemplos que te ayudaran si necesitas mas lineas aumenta max y pon las lineas en la constante}

 program fichero;

  uses

    crt;

  const

      max = 3;

      textoinicio : array[1..max] of string[50] = (

      'alfaromeo 2222BJT negro',

      'audi 3333GBV blanco',

      'kia 4444GXD rojo');

     nombre = 'autos.txt';

     nombre2 = 'autos2.txt';

   type

      datotexto = record

           marca : string[15];

           matri : string[12];

           color : string[10];

         end;

  var

    fd,f : text;

    linea : string[50];

    texto : array[1..max] of string[50];

    tomados : longint;

    x, d : integer;

    regtexto : array[1..max] of datotexto;

    clav : string[20];

  procedure guardadatos;

  var

    t : integer;

  begin

     assign(f,nombre);

     rewrite(f);

     writeln(f,textoinicio[1]);

     close(f);

     for t := 2 to max do

     begin

     append(f);

     writeln(f,textoinicio[t]);

     close(f);

     end;

  end;

  procedure tomadatos(cual : string);

  var

    i : integer;

  begin

      tomados := 0;

      assign(f,cual);

   {$I-} reset(f); {$I+}

   if ioresult <> 0 then

   begin

   writeln('  Error De Archivo No Encontrado Pulse Una Tecla');

   readkey;

   end

  else

     begin

         i := 1;

         while not eof(f) do

         begin

            readln(f,texto[i]);

            i := i + 1;

         end;

         close(f);

         tomados := i - 1;

     end;

   end;

   procedure copyadefichero;

   begin

      assign(f,nombre);

    {$I-} reset(f); {$I+}

      if ioresult <> 0 then

      begin

          writeln('  Error De Archivo No Encontrado Pulse Una Tecla');

          readkey;

      end

    else

       begin

        while not eof(f) do

        begin

          readln(f,linea);

         assign(fd,nombre2);

      {$I-} reset(fd); {$I+}

      if ioresult <> 0 then

      begin

         rewrite(fd);

         writeln(fd,linea);

         close(fd);

      end

   else

       begin

          append(fd);

          writeln(fd,linea);

          close(fd);

       end;

      end;

      close(f);

     end;

   end;

   procedure invertido;

   var

     z, v : integer;

   begin

      assign(f,nombre);

    {$I-} reset(f); {$I+}

      if ioresult <> 0 then

      begin

          writeln('  Error De Archivo No Encontrado Pulse Una Tecla');

          readkey;

      end

    else

       begin

        v := 1;

        while not eof(f) do

        begin

          readln(f,texto[v]);

          v := v + 1;

        end;

         close(f);

         for z := v - 1 downto 1 do

         begin

         if z = v - 1 then

         begin

            assign(fd,nombre2);

            rewrite(fd);

            writeln(fd,texto[z]);

            close(fd);

          end

        else

          begin

           assign(fd,nombre2);

          append(fd);

          writeln(fd,texto[z]);

          close(fd);

       end;

     end;

   end;

  end;

  procedure borrdoarchivos;

  begin

     assign(f,nombre);

   {$I-} reset(f); {$I+}

   if ioresult = 0 then

   begin

      close(f);

      erase(f);

    end;

   assign(fd,nombre2);

   {$I-} reset(fd); {$I+}

   if ioresult = 0 then

   begin

      close(fd);

      erase(fd);

    end;

  end;

  procedure presentadatos(nm : string);

  var

    tr : integer;

  begin

     tomadatos(nm);

     writeln;

     for tr := 1 to max do

     writeln(texto[tr]);

     writeln('  Pulse Una Tecla');

     readkey;

  end;

  procedure ordenaarchivo(nv : string);

  var

     tempo : array[1..max] of string[50];

     c, z : integer;

     tep : string[50];

  begin

     tomadatos(nv);

     for x := 1 to max do

     tempo[x] := texto[x];

    for c := 1 to max do

      for z := max downto c + 1 do

      if tempo[c] > tempo[z] then

      begin

         tep := tempo[z];

         tempo[z] := tempo[c];

         tempo[c] := tep;

      end;

     for x := 1 to max do

     writeln(tempo[x]);

     writeln;

     readkey;

  end;

  procedure guardaenregistro(nom : string);

  var

    pl, v, tt : integer;

    paso : integer;

  begin

      tomadatos(nom);

      pl := 1;

      paso := 1;

      for v := 1 to max do

      begin

        for tt := 1 to length(texto[v]) do

        begin

        if texto[v][tt] <> ' ' then

      begin

     case paso of

  1 : begin regtexto[v].marca[pl] := texto[v][tt];

            regtexto[v].marca[0] := chr(pl); end;

  2 : begin regtexto[v].matri[pl] := texto[v][tt];

            regtexto[v].matri[0] := chr(pl); end;

  3 : begin regtexto[v].color[pl] := texto[v][tt];

            regtexto[v].color[0] := chr(pl); end;

     end;

        pl := pl + 1;

    end

  else

     begin

        pl := 1;

        paso := paso + 1;

     end;

    end;

      paso := 1;

      pl := 1;

    end;

  end;

   procedure invertirporclave(clave : string);

   var

     cc : integer;

   begin

      for cc := 1 to length(clave) do

      clave[cc] := upcase(clave[cc]);

      if clave = 'MATRICULA' then

      begin

         x := 1;

         guardaenregistro(nombre);

         assign(fd,nombre2);

         rewrite(fd);

         writeln(fd,regtexto[x].color + ' ' + regtexto[x].matri + ' ' +

                         regtexto[x].marca);

         close(fd);

         for x := 2 to max do

         begin

             assign(fd,nombre2);

             append(fd);

           writeln(fd,regtexto[x].color + ' ' + regtexto[x].matri + ' ' +

                         regtexto[x].marca);

           close(fd);

         end;

      end;

   end;

  begin

      borrdoarchivos;

      clrscr;

      guardadatos;

      tomadatos(nombre);

      writeln('  Datos Guardados');

      writeln;

      presentadatos(nombre);

      copyadefichero;

      tomadatos(nombre2);

      writeln;

      writeln('  Datos Copiados ');

      presentadatos(nombre2);

      invertido;

      tomadatos(nombre2);

      writeln;

      writeln('  Datos Invertidos ');

      presentadatos(nombre2);

      writeln;

      writeln(' Archivos Ordenados');

      ordenaarchivo(nombre);

      guardaenregistro(nombre);

      writeln;

       writeln('  Archivo Invertido ');

       writeln;

        for x := 1 to max do

        begin

        writeln(regtexto[x].color,' ',regtexto[x].matri,' ',regtexto[x].marca);

        end;

        writeln;

        write('  Entre Clave : ');

        readln(clav);

        invertirporclave(clav);

        writeln;

        writeln('  Archivo invertido');

        writeln;

        presentadatos(nombre2);

  end.