Pascal/Turbo Pascal - lo necesito si no reprobare D:

{Mira tu estructura de array y registros es demasiado grande para pascal pues este no permite mas de 65k y tu en el array

pones 100 si lo multiplicas 256 * 8 datos que tienes en el registro te dará 2048 bytes por 100 del array tienes 204800 bytes

o sea 204k lo que causa un error en pascal aparte de eso repites demasiadas variables lo cual agranda el problema de

memoria mira esto que te paso y ajustarlo a tus necesidades}

program laescuela;

 {$M 16384, 0, 65535}

 uses

    crt;

 type

   string50 = string[50];

   materias = (esp,mat,his,cie,fce,art,tec,ori,dep);

   datos = record

      escuela : string[80];

   cveCentroT : string[80];

       nombre : string[50];

      apePatA : string[50];

      apeMatA : string[50];

         iden : word;

         curp : string[10];

        grupo : string[10];

        turno : string[5];

      end;

     calificacion = record

          asignatura : materias;

             periodo : integer;

       inasistencias : integer;

               grado : integer;

                curp : string[10];

              end;

   var

     alumnos : Array [1..100] of datos;

     boletas : array [1..10] of calificacion;

         tot : integer;

          te : char;

       Mater : materias;

  function esiste(n, p1, p2 : string50; var j : word) : boolean;

  var

    h, v1p, v2p, v3p, i : integer;

    re, id : word;

  begin

     esiste := false;

     v1p := 0;

     for i := 1 to length(n) do

     v1p := v1p + ord(upcase(n[i]));

     v2p := 0;

     for i := 1 to length(P1) do

     v2p := v2p + ord(upcase(P1[i]));

     v3p := 0;

     for i := 1 to length(p2) do

     v3p := v3p + ord(upcase(p2[i]));

     id := (v1p + v2p + v3p);

     for h := 1 to tot do

     begin

        if alumnos[h].iden = id then

        begin

          esiste := true;

          break;

        end;

     end;

     j := id;

  end;

  procedure datos_alumnos(var alumn : datos);

  begin

     with alumn do

     begin

     write('  Entre Nombre      : ');

     readln(nombre);

     write('  Entre 1. Apellido : ');

     readln(apePatA);

     write('  Entre 2. Apellido : ');

     readln(apeMatA);

     if esiste(nombre, apePatA, apeMatA, iden) = true then

     begin

       writeln('  El Alumno ya Existe Pulse Una Tecla');

       readkey;

     end

   else

      begin

         write('  Escuela       : ');

         readln(escuela);

         write('  CveCentroT    : ');

         readln(cveCentroT);

         write('  Curp          : ');

         readln(curp);

         write('  Grupo         : ');

         readln(grupo);

         write('  Turno         : ');

         readln(turno);

      end;

    end;

  end;

  procedure presenta_alumnos;

  var

   p : integer;

  begin

     p := 1;

     clrscr;

   repeat

      with alumnos[p] do

      begin

      writeln(escuela,'  ',cveCentroT,'  ',nombre,'  ',apePatA,'  ',apeMatA,

      '  ',curp,'  ',grupo,'  ',turno);

      end;

      p := p + 1;

   until p > tot;

   readkey;

  end;

  Procedure leercalif(totalu : integer);

  var

   totbol : integer;

    Band : Boolean;

    X, i : integer;

    Curp1 : string[10];

    Op : char;

  Begin

   If totalu = 0 then

   Begin

      Write ('no hay alumnos escritos press any key to continue');

      Readln;

    End

 Else

    Begin

    repeat

        Write('curp : ');

        readln(curp1);

        Band := false;

   For i := 1 to totalu do

   If alumnos[i].curp = curp1 Then

   Begin

      Band := true;

      X := i;

   End;

   If band = true Then

    Totalu := totalu + 1;

      For i := 1 to totalu do

      If (boletas[i].curp = curp1) and (boletas[i].asignatura = mater) then

      Band := true;

       If band = true then

       Write('ya registraste esta materia.. press..');

      Write('quieres ingresas otra asignatura [s/n:');

      Readln(op);

   Until (op = 'N') or (op = 'n');

  End;

 end;

   begin

     clrscr;

     tot := 1;

    repeat

     datos_alumnos(alumnos[tot]);

     writeln;

     writeln('  Desea entrar mas datos S/N ');

     repeat

         te := upcase(readkey);

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

     if te = 'S' then

     tot := tot + 1;

    until te = 'N';

    presenta_alumnos;

    leercalif(tot);

   end.