Pascal/Turbo Pascal - programa en pascal

{Serviría esto}

 program calculo;

 uses

    crt;

 type

  regdatos = record

        nombre : string[80];

        sexo   : char;

        calif1 : real;

        calif2 : real;

       end;

  const

      estudi = 5;

  var

    datos : array[1..estudi] of regdatos;

    cont : integer;

    tec : char;

    prom : array[1..estudi] of real;

    prov, reprov : integer;

    t, muj, hom : integer;

  procedure entradas;

  begin

     cont := 1;

   repeat

      clrscr;

      writeln('*** Entrada Datos Estudiante Num [',cont,'] ***');

      writeln;

      write('   Nombre : ');

      readln(datos[cont].nombre);

      write('   Sexo [F/M] : ');

      repeat

         tec := upcase(readkey);

      until tec in['F','M'];

      writeln(tec);

      datos[cont].sexo := tec;

      write('   calificacion 1 :  ');

      readln(datos[cont].calif1);

      write('   calificacion 2 :  ');

      readln(datos[cont].calif2);

      cont := cont + 1;

   until cont > estudi;

   for t := 1 to cont - 1 do

   begin

       prom[t] := (datos[t].calif1 + datos[t].calif2) / 2;

       if datos[t].sexo = 'F' then

       muj := muj + 1;

       if datos[t].sexo = 'M' then

       hom := hom + 1;

       if round(prom[t]) in[6,7,8] then

       prov := prov + 1;

       if round(prom[t]) in[9,10,11,12] then

       reprov := reprov + 1;

   end;

  end;

  begin

      clrscr;

      entradas;

      writeln('    Promedios');

      writeln;

      for t := 1 to cont - 1 do

      begin

         write(' ',prom[t]:0:2);

      end;

        writeln;

        writeln('    Aprovados  = ',prov);

        writeln('    Reprovados = ',reprov);

        writeln('    Femeninos  = ',muj);

        writeln('    Masculino  = ',hom);

        writeln;

        writeln('    Pulse [Enter]');

        readln;

  end.