Pascal/Turbo Pascal - Ejercicio fin de curso ayuda

TYPE

        REG1=RECORD

            	 Autor:STRING[20];

           	 Edito:STRING[30];

            	 Cod_Libro:longint;

             	 Lugar:string[30];

             	 con:char;

        END;

{Espero esto te ayude}

 program registros;

  uses

     crt;

   type

     REG1 = record

           Autor : string[20];

           Edito : string[30];

       Cod_Libro : longint;

           Lugar : string[30];

             con : char;

        end;

  var

    dato : array[1..50] of reg1;

    f : file of reg1;

    cont : longint;

   procedure guardar_dato(g : reg1);

   begin

       assign(f,'Libros.dat');

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

    if ioresult <> 0 then

    begin

       rewrite(f);

       seek(f,0);

       write(f,g);

       close(f);

    end

  else

     begin

        seek(f,filesize(f));

        write(f,g);

        close(f);

     end;

  end;

  procedure carga_dato;

  var

     carg : longint;

     toma : integer;

  begin

      assign(f,'Libros.dat');

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

    if ioresult <> 0 then

    begin

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

       readkey;

    end

  else

      begin

         if filesize(f) - 1 > 50 then

         begin

         toma := 50;

         cont := toma;

         end

       else

         begin

         toma := filesize(f) - 1;

         cont := toma + 1;

         end;

         writeln('  Inicio Carga Datos');

         delay(200);

         for carg := 0 to toma do

         begin

             seek(f,carg);

             read(f,dato[carg + 1]);

         end;

           close(f);

           writeln('  Carga Finalizada');

           delay(400);

           clrscr;

      end;

    end;

  procedure entrada_datos;

  var

    te : char;

  begin

     clrscr;

     writeln('   ***** Entrada De Datos *****');

     writeln;

     write('   Entre Autor     : ');

     readln(dato[1].autor);

     write('   Entre Edito     : ');

     readln(dato[1].edito);

     write('   Entre Cod_Libro : ');

     readln(dato[1].Cod_Libro);

     write('   Entre Lugar     : ');

     readln(dato[1].Lugar);

     dato[1].con := 'a';

     writeln;

     writeln('  Los Datos Son correctos [S/N]');

     repeat

         te := upcase(readkey);

     until te in['S','N'];

     if te = 'S' then

     begin

        guardar_dato(dato[1]);

     end

   else

      begin

         te := chr(0);

         writeln;

         writeln('  Desea Entrar Los Datos De Nuevo [S/N]');

         repeat

         te := upcase(readkey);

         until te in['S','N'];

         if te = 'S' then

         entrada_datos;

      end;

  end;

  procedure presenta_dato;

  var

    i : longint;

  begin

     carga_dato;

     gotoxy(4,1);write(' Autor        Editor     Codogo    Lugar        con');

     for i := 1 to cont do

     begin

        gotoxy(5,2 + i);write(dato[i].autor);

        gotoxy(18,2 + i);write(dato[i].edito);

        gotoxy(29,2 + i);write(dato[i].Cod_Libro);

        gotoxy(39,2 + i);write(dato[i].Lugar);

        gotoxy(52,2 + i);write(dato[i].con);

     end;

     gotoxy(19,4 + i);write('   Pulse Una Tecla');

     readkey;

  end;

  procedure busqueda_dato;

  var

     paso, ed : string[30];

     pp, tt, yy : integer;

     temp : array[1..50] of reg1;

  begin

     clrscr;

     writeln('    ***** Busqueda Editorial *****');

     writeln;

     write('   Entre Editorial : ');

     readln(ed);

     for yy := 1 to length(ed) do

     begin

     ed[yy] := upcase(ed[yy]);

     ed[0] := chr(yy);

     end;

     carga_dato;

     tt := 0;

     for yy := 1 to cont do

     begin

       for pp := 1 to length(dato[yy].Edito) do

       begin

       paso[pp] := upcase(dato[yy].Edito[pp]);

       paso[0] := chr(pp);

       end;

     if paso = ed then

     begin

     tt := tt + 1;

     temp[tt] := dato[yy];

     end;

    end;

     clrscr;

     gotoxy(4,1);write(' Autor        Editor     Codogo    Lugar        con');

     for pp := 1 to tt do

     begin

        gotoxy(5,2 + pp);write(dato[pp].autor);

        gotoxy(18,2 + pp);write(dato[pp].edito);

        gotoxy(29,2 + pp);write(dato[pp].Cod_Libro);

        gotoxy(39,2 + pp);write(dato[pp].Lugar);

        gotoxy(52,2 + pp);write(dato[pp].con);

     end;

       readkey;

  end;

  procedure reorganiza_dato;

  var

    tp : file of reg1;

    z, ll : longint;

    begin

     assign(f,'Libros.dat');

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

    if ioresult <> 0 then

    begin

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

       readkey;

    end

  else

      begin

         z := 0;

         assign(tp,'Temporal.tmp');

         rewrite(tp);

         for ll := 0 to filesize(f) - 1 do

         begin

         seek(f,ll);

         read(f,dato[1]);

         if dato[1].con = 'a' then

         begin

            seek(tp,z);

            write(tp, dato[1]);

            z := z + 1;

         end;

      end;

        close(tp);

        close(f);

        erase(f);

        rename(tp,'Libros.dat');

        writeln('  Organizacion Realizada Pulse Una Tecla');

        readkey;

     end;

   end;

   procedure modificar_datos;

   var

      tew : char;

      col, bu, cd : longint;

      fin, encot : boolean;

   begin

       clrscr;

       writeln('    Modificar Datos');

       writeln;

       write('   Entre Codigo Libro : ');

       readln(cd);

       assign(f,'Libros.dat');

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

    if ioresult <> 0 then

    begin

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

       readkey;

    end

  else

      begin

         encot := false;

         for bu := 0 to filesize(f) - 1 do

         begin

            seek(f,bu);

            read(f,dato[1]);

            if dato[1].Cod_Libro = cd then

            begin

               encot := true;

               col := bu;

               break;

            end;

         end;

      if encot = true then

      begin

       fin := false;

       clrscr;

       gotoxy(4,1);write(' Autor        Editor     Codogo    Lugar        con');

       gotoxy(5,2 + 1);write(dato[1].autor);

       gotoxy(18,2 + 1);write(dato[1].edito);

       gotoxy(29,2 + 1);write(dato[1].Cod_Libro);

       gotoxy(39,2 + 1);write(dato[1].Lugar);

       gotoxy(52,2 + 1);write(dato[1].con);

     repeat

       gotoxy(18,5);write('  Opcion Modificar');

       gotoxy(18,7);write('  A = Autor');

       gotoxy(18,8);write('  E = Editor');

       gotoxy(18,9);write('  C = Codogo');

       gotoxy(18,10);write('  L = Lugar');

       gotoxy(18,11);write('  N = Con');

       gotoxy(18,12);write('  S = Finalizar');

       repeat

           tew := upcase(readkey);

       until tew in['A','E','C','L','N','S'];

       gotoxy(18,14);clreol;

     case tew of

  'A' : begin gotoxy(18,14);write('  Autor : ');readln(dato[1].autor);

              gotoxy(5,2 + 1);write(dato[1].autor); end;

  'E' : begin gotoxy(18,14);write('  Editor : ');readln(dato[1].Edito);

              gotoxy(18,2 + 1);write(dato[1].edito); end;

  'C' : begin gotoxy(18,14);write('  Codigo : ');readln(dato[1].Cod_Libro);

              gotoxy(29,2 + 1);write(dato[1].Cod_Libro); end;

  'L' : begin gotoxy(18,14);write('  Lugar : ');readln(dato[1].Lugar);

              gotoxy(39,2 + 1);write(dato[1].Lugar); end;

  'N' : begin gotoxy(18,14);write('  Con : ');readln(dato[1].con);

              gotoxy(52,2 + 1);write(dato[1].con); end;

  'S' : fin := true;

    end;

    until fin = true;

    seek(f,col);

    write(f,dato[1]);

    close(f);

    end

  else

     begin

        clrscr;

        writeln('   Codigo No Encontrado Pulse Una Tecla');

        readkey;

        close(f);

     end;

    end;

   end;

  procedure menuinicio;

  var

    salir : boolean;

    tecla : char;

  begin

     salir := false;

     cont := 0;

   repeat

       clrscr;

       writeln('    ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

       writeln('    ³   *** Menu Inicio ***  ³');

       writeln('    ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');

       writeln('    ³  1 = ENTRADA           ³');

       writeln('    ³  2 = LISTADO           ³');

       writeln('    ³  3 = BUSQUEDA          ³');

       writeln('    ³  4 = REORGA            ³');

       writeln('    ³  5 = MODIFICA          ³');

       writeln('    ³  6 = SEL_FICHERO       ³');

       writeln('    ³  7 = SALIR             ³');

       writeln('    ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');

       writeln;

       writeln('    ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

       writeln('    ³  <<< Elija Opcion >>>  ³');

       writeln('    ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');

       repeat

           tecla := readkey;

       until tecla in['1','2','3','4','5','6','7'];

       clrscr;

      case tecla of

  '1' : entrada_datos;

  '2' : presenta_dato;

  '3' : busqueda_dato;

  '4' : reorganiza_dato;

  '5' : modificar_datos;

  '6' : begin

       clrscr;

       writeln('   Todos los datos se encuentran en un solo archivo');

       writeln('   el programa es el encargado de presentarte el tipo');

       writeln('   de archivo que tu le pidas pero solo existe un archivo');

       writeln('   si quieres tendras que marcar el tipo de dato que se');

       writeln('   a guardado en ese registro.');

       writeln('   Por Ejemplo: tipo : char; y seria = ');

       writeln('   [R] = Revistas, [L] = Libros, [C] = CD, [T] = Libros_Text');

       writeln('   [D] = Docvarios');

        end;

  '7' : salir := true;

    end;

   until salir = true;

  end;

  begin

     menuinicio;

  end.