Pascal/Turbo Pascal - AYUDA CON PROYECTO EN PASCAL POR FAVOOOOOOR!!!

{Esto te servirá o necesitas mas}

program proyecto;

  uses

     crt;

  const

     archivo = 'juegos.txt';

     presentacion : array[1..5] of string[70] = (

     'Republica Bolivariana de Venezuela',

     'Ministerio del Poder popular para la Defensa',

     'Universidad Nacional Experimental Politecnica De La Fuerza Armada',

     'UNEFA- NUCLEO LARA',

     'PROYECTO FINAL');

   elmenu = 7;

   menu_dato : array[1..elmenu] of string = (

   '1 : Incluir',

   '2 : Actualizar',

   '3 : Consultar',

   '4 : Modificar',

   '5 : Eliminar',

   '6 : Reportes',

   '7 : Salir');

  type

     regjugador = record

                     cedula : longint;

         nombre_del_jugador : string;

    equipo_al_que_pertenece : string[80];

     home_rounds_conectados : integer;

              bases_robadas : integer;

        carreras_impulsadas : integer;

            hits_conectados : integer;

          promedio_de_bateo : real;

                     end;

   var

     jugador : regjugador;

     f : file of regjugador;

     tecla : char;

   procedure pantalla_de_presentacion;

   begin

 gotoxy(5,1);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ',

                     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

 gotoxy(5,2);write('³');

 textcolor(10);

 gotoxy(21,2);write(presentacion[1]);

 textcolor(15);

 gotoxy(73,2);write('³');

 gotoxy(5,3);write('³');

 gotoxy(73,3);write('³');

 gotoxy(5,4);write('³');

 textcolor(12);

 gotoxy(16,4);write(presentacion[2]);

 textcolor(15);

 gotoxy(73,4);write('³');

 gotoxy(5,5);write('³');

 gotoxy(73,5);write('³');

 gotoxy(5,6);write('³');

 textcolor(14);

 gotoxy(7,6);write(presentacion[3]);

 textcolor(15);

 gotoxy(73,6);write('³');

 gotoxy(5,7);write('³');

 gotoxy(73,7);write('³');

 gotoxy(5,8);write('³');

 textcolor(2);

 gotoxy(30,8);write(presentacion[4]);

 textcolor(15);

 gotoxy(73,8);write('³');

 gotoxy(5,9);write('³');

 gotoxy(73,9);write('³');

 gotoxy(5,10);write('³');

 textcolor(7);

 gotoxy(32,10);write(presentacion[5]);

 textcolor(15);

 gotoxy(73,10);write('³');

 gotoxy(5,11);write('À');

 gotoxy(6,11);write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ',

                     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

 gotoxy(73,11);write('Ù');

 gotoxy(27,13);write('**** Pulse Una Tecla ****');

 readkey;

   end;

   procedure guarda_a_archivo(reg : regjugador);

   begin

      assign(f,archivo);

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

    if ioresult <> 0 then

    begin

       rewrite(f);

       seek(f,0);

       write(f,reg);

       close(f);

    end

  else

     begin

         seek(f,filesize(f));

         write(f,reg);

         close(f);

     end;

   end;

   procedure entada_datos_jugador;

   var

     pul : char;

   begin

      clrscr;

      with jugador do

      begin

      gotoxy(10,1);write('***** Datos Nuevo Jugador *****');

      gotoxy(2,3);write('Cedula Del Jugador [Numero Solo] : ');

      gotoxy(2,4);write('Nombre Del Jugador [Texto]       : ');

      gotoxy(2,5);write('Equipo Al Que Pertenece [Texto]  : ');

      gotoxy(2,7);write('<<< Datos Correctos [S/N] >>>');

      gotoxy(37,3);readln(cedula);

      gotoxy(37,4);readln(nombre_del_jugador);

      gotoxy(37,5);readln(equipo_al_que_pertenece);

      end;

      repeat

          pul := upcase(readkey);

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

      if pul = 'N' then

      entada_datos_jugador

    else

       begin

          with jugador do

          begin

             home_rounds_conectados := 0;

             bases_robadas := 0;

             carreras_impulsadas := 0;

             hits_conectados := 0;

             promedio_de_bateo := 0;

          end;

          guarda_a_archivo(jugador);

       end;

   end;

  procedure Consultar_jugador(ced : longint);

  var

     n, fds : longint;

     dato : regjugador;

     enco : boolean;

  begin

      writeln(' cedula es : ',ced);

      assign(f,archivo);

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

    if ioresult <> 0 then

    begin

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

        readkey;

    end

  else

      begin

         enco := false;

         n := 0;

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

         begin

            seek(f,fds);

            read(f,dato);

            if dato.cedula = ced then

            begin

                n := fds;

                enco := true;

                break;

            end;

         end;

          if enco = true then

          begin

             clrscr;

 writeln('   ******* Datos Del Jugador Num Cedula : ',dato.cedula,' ******');

             writeln;

             writeln('  Nombre              = ',dato.nombre_del_jugador);

             writeln('  Equipa              = ',dato.equipo_al_que_pertenece);

             writeln('  Rounds Conectados   = ',dato.home_rounds_conectados);

             writeln('  Bases Rovadas       = ',dato.bases_robadas);

             writeln('  Carreras Impulsadas = ',dato.carreras_impulsadas);

             writeln('  Hits Conectados     = ',dato.hits_conectados);

             writeln('  Promedio De Bateo   = ',dato.promedio_de_bateo:0:2);

             writeln;

             writeln('<<<<< Pulse Una Tecla >>>>>');

             close(f);

          end

       else

          begin

             close(f);

             writeln('   Num. Cedula No Encontrado Pulse Una Tecla');

             readkey;

          end;

      end;

  end;

  procedure Actualizar_jugador(num : longint);

  var

    v, j : longint;

    ds : regjugador;

    enco : boolean;

   begin

      assign(f,archivo);

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

    if ioresult <> 0 then

    begin

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

       readkey;

    end

  else

     begin

        enco := false;

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

        begin

           seek(f,j);

           read(f,ds);

           if ds.cedula = num then

           begin

              enco := true;

              v := j;

              break;

           end;

        end;

        if enco = true then

        begin

           clrscr;

           writeln('   ***** Aztualiza Datos *****');

           writeln;

           write('  home rounds conectados : ');

           readln(ds.home_rounds_conectados);

           write('  bases robadas          : ');

           readln(ds.bases_robadas);

           write('  carreras impulsadas    : ');

           readln(ds.carreras_impulsadas);

           write('  hits conectados        : ');

           readln(ds.hits_conectados);

           write('  promedio de bateo      : ');

           readln(ds.promedio_de_bateo);

           seek(f,v);

           write(f,ds);

           close(f);

        end

      else

         begin

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

            readkey;

            close(f);

         end;

     end;

   end;

   procedure Modificar_datos(bn : longint);

   var

     pp, dg : longint;

     datom : regjugador;

     sal, enco : boolean;

     nh : char;

   begin

     assign(f,archivo);

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

    if ioresult <> 0 then

    begin

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

       readkey;

    end

  else

     begin

        enco := false;

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

        begin

           seek(f,dg);

           read(f,datom);

           if datom.cedula = bn then

           begin

              pp := dg;

              enco := true;

              break;

           end

        else

           begin

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

              readkey;

              close(f);

           end;

        end;

          if enco = true then

          begin

             sal := false;

             repeat

                clrscr;

                writeln('   1 = Cedula');

                writeln('   2 = Nombre');

                writeln('   3 = Equipo Al Que Pertenece');

                writeln('   4 = Home Rounds Conectados');

                writeln('   5 = Bases Robadas');

                writeln('   6 = Carreras Impulsadas');

                writeln('   7 = Hits Conectados');

                writeln('   8 = Promedio De Bateo');

                writeln('   9 = Termina Modificacion ');

              repeat

                nh := readkey;

              until nh in['1','2','3','4','5','6','7','8','9'];

              clrscr;

       case nh of

 '1' : begin write('  cedula   : '); readln(datom.cedula); end;

 '2' : begin write('  nombre   : '); readln(datom.nombre_del_jugador); end;

 '3' : begin write('  equipo   : '); readln(datom.equipo_al_que_pertenece); end;

 '4' : begin write('  rounds   : '); readln(datom.home_rounds_conectados); end;

 '5' : begin write('  bases    : '); readln(datom.bases_robadas);   end;

 '6' : begin write('  carreras : '); readln(datom.carreras_impulsadas); end;

 '7' : begin write('  hits     : '); readln(datom.hits_conectados); end;

 '8' : begin write('  promedio : '); readln(datom.promedio_de_bateo); end;

 '9' : sal := true;

       end;

             until sal = true;

             seek(f,pp);

             write(f,datom);

             close(f);

          end;

      end;

    end;

  procedure Eliminar_jugador(nm : longint);

  var

    ttn, ll, bb : longint;

    tt : char;

    tem : file of regjugador;

    datom, date : regjugador;

    enco : boolean;

   begin

      assign(f,archivo);

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

    if ioresult <> 0 then

    begin

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

       readkey;

    end

  else

     begin

        enco := false;

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

        begin

           seek(f,bb);

           read(f,datom);

           if datom.cedula = nm then

           begin

              ll := bb;

              enco := true;

              break;

           end

        else

           begin

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

              readkey;

              close(f);

           end;

        end;

          if enco = true then

          begin

             ttn := 0;

             assign(tem,'tempo.tem');

             rewrite(tem);

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

             begin

                seek(f,bb);

                read(f,datom);

                if bb <> ll then

                begin

                   date := datom;

                   seek(tem,ttn);

                   write(tem,date);

                   ttn := ttn + 1;

                end;

             end;

               close(f);

               close(tem);

               erase(f);

               rename(tem,archivo);

            end;

         end;

      end;

  procedure marca_menu(m : integer);

  var

     t : integer;

  begin

      gotoxy(12,2);write('***** Menu Jeneral *****');

      gotoxy(12,3);write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

      for t := 1 to elmenu do

      begin

         if t <> m then

         begin

         textcolor(15);

         TextBackground(0);

         gotoxy(12,3 + t);write(menu_dato[t]);

         end

      else

         begin

           textcolor(15);

           TextBackground(5);

           gotoxy(12,3 + t);write(menu_dato[t]);

         end;

      end;

         textcolor(15);

         TextBackground(0);

         gotoxy(12,5 + elmenu);write('Elije Opcion Con ',chr(24),

                   ' ',chr(25),' O Numero Y Enter');

    end;

  procedure menu;

  var

    tec : char;

    opcion : integer;

    salir : boolean;

    cedu : longint;

  begin

     opcion := 1;

     salir := false;

  repeat

     clrscr;

     marca_menu(opcion);

     tec := readkey;

     if tec = #72 then

     begin

        opcion := opcion - 1;

        if opcion < 1 then

        opcion := 1;

     end;

     if tec = #80 then

     begin

        opcion := opcion + 1;

        if opcion > elmenu then

        opcion := elmenu;

     end;

  if tec in['1'..'7'] then

  begin

  case tec of

 '1' : opcion := 1;

 '2' : opcion := 2;

 '3' : opcion := 3;

 '4' : opcion := 4;

 '5' : opcion := 5;

 '6' : opcion := 6;

 '7' : opcion := elmenu;

   end;

  end;

  if tec = #13 then

  begin

    case opcion of

  1 : entada_datos_jugador;

  2 : begin

        clrscr;

        write('  Entre Num. Cedula : ');

        readln(cedu);

        Actualizar_jugador(cedu);

      end;

  3 : begin

        clrscr;

        write('   Entre Numero Cedula : ');

        readln(cedu);

        Consultar_jugador(cedu);

        readkey;

      end;

  4 : begin

        clrscr;

        write('   Entre Numero Cedula : ');

        readln(cedu);

        Modificar_datos(cedu);

      end;

  5 : begin

        clrscr;

        write('   Entre Numero Cedula : ');

        readln(cedu);

       Eliminar_jugador(cedu);

      end;

  6 :;

  elmenu : salir := true;

    end;

  end;

  until salir = true;

  end;

   begin

       textcolor(15);

       clrscr;

       pantalla_de_presentacion;

       clrscr;

       menu;

   end.

{Sustitulle este por el otro}

procedure Modificar_datos(bn : longint);

   var

     pp, dg : longint;

     datom : regjugador;

     sal, enco : boolean;

     nh : char;

   begin

     assign(f,archivo);

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

    if ioresult <> 0 then

    begin

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

       readkey;

    end

  else

     begin

        enco := false;

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

        begin

           seek(f,dg);

           read(f,datom);

           if datom.cedula = bn then

           begin

              pp := dg;

              enco := true;

              break;

           end

        end;

          if enco = true then

          begin

             sal := false;

             repeat

                clrscr;

                writeln('   1 = Cedula');

                writeln('   2 = Nombre');

                writeln('   3 = Equipo Al Que Pertenece');

                writeln('   4 = Home Rounds Conectados');

                writeln('   5 = Bases Robadas');

                writeln('   6 = Carreras Impulsadas');

                writeln('   7 = Hits Conectados');

                writeln('   8 = Promedio De Bateo');

                writeln('   9 = Termina Modificacion ');

              repeat

                nh := readkey;

              until nh in['1','2','3','4','5','6','7','8','9'];

              clrscr;

       case nh of

 '1' : begin write('  cedula   : '); readln(datom.cedula); end;

 '2' : begin write('  nombre   : '); readln(datom.nombre_del_jugador); end;

 '3' : begin write('  equipo   : '); readln(datom.equipo_al_que_pertenece); end;

 '4' : begin write('  rounds   : '); readln(datom.home_rounds_conectados); end;

 '5' : begin write('  bases    : '); readln(datom.bases_robadas);   end;

 '6' : begin write('  carreras : '); readln(datom.carreras_impulsadas); end;

 '7' : begin write('  hits     : '); readln(datom.hits_conectados); end;

 '8' : begin write('  promedio : '); readln(datom.promedio_de_bateo); end;

 '9' : sal := true;

       end;

             until sal = true;

          end;

             seek(f,pp);

             write(f,datom);

             close(f);

          end;

      end;

else

           begin

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

              readkey;

              close(f);

           end;