Pascal/Turbo Pascal - Pequeña duda con un problema de pascal

Buenas. Tengo el siguiente problema:

Una escuela realiza un control sobre el estado físico de sus 304 alumnos. Dispone de los
números de legajos y estatura (en cms.) de cada uno de ellos.
Se requiere saber el promedio de estatura, así como los números de legajos de los alumnos de
estatura inferior a 165 cms.

y yo hice esto:

program ej12 (imput,output);

uses crt;
var numero,i,lg:integer;
acum,e:real;
begin
clrscr;
acum:=0;
numero:=0 ;
for i:= 1 to 3 do

begin
writeln('ingresar legajo');
readln(lg);
writeln('ingresar estatura');
readln(e);
clrscr;
acum:=acum+e;
if e<1.65 then numero:= numero+ lg
else;
end;

writeln ('los numeros de legajo de los de estatura menor a 1.65 son',numero :6);
writeln( 'el promedio de estatura es', acum/3:6:2);
repeat until keypressed;

end.


Pero mi duda es: cómo hago para que se puedan ver el número de legajos de todos los chicos con estatura inferior a 1.65? No sé como hacer para que puedan verse...

Gracias de antemano.

Tienes que trabajar con registros o cadena dependiendo de lo que mejor te valla con variables
solo no podrás presentar nada mas que el contenido de haya en el momento de la verificación
pues en contenido cambiara con el siguiente valor que asignes a la variable.
Para lo cual quedaría a sin :

alumnos : record
legajos : integer;
estatura : real;
end;

var
registro : array[1..304] of alumnos; {Un array de alumnos}
f : file of alumnos; {Un fichero de alumnos}
datos : alumnos: {Para el fichero de alumnos}
cont : integer; {Para el contador de alumnos}

Con esto puedes revisar la estatura el legajo y lo que quieras revisar de ellos,
puedes guardarlo en un archivo o solo en el momento de la ejecución del programa como
es el array.
Yo personal mente me decanto por el archivo ya que es lomas aceptable.

Si deseas mas información sobre el tema dímelo suerte.

Mil gracias, todavía no vimos el tema de array en la facultad pero por algo paso de largo este ejercicio; yo quería hacerlo solo pero bueno...gracias nuevamente. Saludos.