Hola estoy intentando desde hace rato encontrarle la vuelta al siguiente ejercicio, cual opinion o ayuda, la tendrè en cuenta y estarè agradecido, la consigna es la siguiente:

Se desea procesar la información de alumnos de ocho carreras universitarias. De cada

carrera se lee su código, cantidad de años de duración y cantidad de alumnos que cursa cada

año. Se pide informar la carrera que tiene la mayor cantidad promedio de alumnos.


El problema consiste en que NO se pueden usar, ni registros, ni arreglos,solamente hay  que leer de teclado la informacion e ir procesandola porque no tenes una estructura para guardarla, y me trabo en el proceso para que me haga esto,


 begin
   for i := 1 to 8 do
     read (codigo);
    read(cantAl);
    read(cantAños);
    total := total + cantAl;
    if (total>carreramax) then
      carreramax:= total;
      nrocarrera := i ,  { de las 8 carrera, me indica cual es la maxima}

AAAAAAAlgo de lo que intentè hacer es esto, espero alguna opinion , saludos y gracias