BUEN DÍA! TENGO QUE REALIZAR UN PROGRAMA EN PASCAL QUE ME PERMITA CARGAR UNA LISTA SIMPLEMENTE ENLAZADA CON DATOS DEL ALUMNO: LEGAJO, DNI, NOMBRE, MATERIA.... MI DUDA TENGO HECHO EL PROGRAMA PERO A LA HORA DE EJECUTAR ME TIRA 'ERROR 203: HEAP OVERFLOW ERROR'



LES ADJUNTO EL PSEUDOCÓDIGO, QUIERO SABER EN DONDE ESTÁ EL ERROR...DESDE YA GRACIAS!

pone el codigo, con el tag code, que tenemos un compilador en el foro.

por otro lado, si nos das un poco mas de informacion te vamos a poder ayudar mejor.
¿como falla?
¿que intentaste para corregirlo?
¿que crees que puede estar fallando?

HOLA MIRA ESTE ES EL ERROR QUE ME TIRA, Y LA CONSIGNA SOLO ME PIDE QUE CARGUE UNA LISTA SIMPLE CON ESOS DATOS DEL ALUMNO QUE ESCRIBÍ ANTERIORMENTE.....

este es el programa:

 Program CARGA_LISTA_SIMPLE;



type   p=^nodo;

       nodo=record

       legajo:integer;

       dni:integer;

       nombre:string;

       materia:string;

       prox:p;

       end;



var    prim,t,ant,q:p;

       nombre,materia:string;

       dni,legajo:integer;



begin

       prim:=nil;

       write('ingrese legajo: ');

       readln(legajo);

       write('ingrese dni: ');

       readln(dni);

       write('ingrese nombre: ');

       readln(nombre);

       write('ingrese materia: ');

       readln(materia);

       while (nombre <> '') do

begin

       new(q);

       q^.legajo:=legajo;

       q^.dni:=dni;

       q^.nombre:=nombre;

       q^.materia:=materia;



       if (prim=nil) then

begin

       q^.prox:=nil;

       prim:=q;

       end

else begin

       t:=prim;

       while (t<>nil) and (t^.legajo<legajo) do

       ant:=t;

       t:=t^.prox;

       end;



       if (t=nil) then

begin

       ant^.prox:=q;

       q^.prox:=nil;

       end

else begin

       if (t=prim) then

begin

       q^.prox:=prim;

       prim:=q;

       end

else begin

       q^.prox:=t;

       ant^.prox:=q;

       end;

       end;

       end;

write('ingrese legajo y dni del alumno: '); readln(legajo,dni);

write('ingrese nombre y materia del alumno: '); readln(nombre,materia);

end.



q:=prim;

while (q<>nil) do

begin



writeln('el legajo:',q^.legajo,'dni:',q^.dni,'es el alumno:',q^.nombre,'y cursa:',q^.materia);

q:=q^.prox;

end;

readln;

end.

te estas quedando sin memoria. fijate por que te esta pasando eso.