practica 5 ejercicio 8, Pascal

Language: Layout:

//fpc 3.0.4

program HelloWorld;
const
    promocionado = 90;
    aprobado = 70;
type
    Tnombre = string[15];
    rangoPuntaje = 0 .. 100;
    examen = record
        nombre : Tnombre;
        continente : Tnombre;
        puntaje : rangoPuntaje;
    end;
var
       max:examen; // representa el examen con mayor puntaje
{--------------------------------------------------------------
}
procedure puntProcess(var e:examen;var aprob:integer;var prom:integer;var promedio: real; var participante:integer);
begin
    readln(e.puntaje);
    // ejercicio a
    if e.puntaje > max.puntaje then
        max:=e;
    // ejercicio b
    if e.puntaje >= promocionado then begin
        prom:=prom+1;
        aprob:=aprob+1;
     end else
        if e.puntaje >= aprobado then
            aprob:= aprob +1;
    // ejercicio c
    if e.continente = 'europa' then begin
        promedio := promedio + e.puntaje;
        participante:= participante +1;
    end;
end;

{--------------------------------------------------------------
}
procedure contProcess(var e:examen);
var reg_cont:Tnombre; aprob,prom: integer;promedio:real;participantes:integer;
begin
    // inicializacion ...................................
    participantes:=0;
    promedio:=0;
    
    // lectura ..................................
    readln(e.continente);
    
    repeat
    
        reg_cont:= e.continente;
        
        //   inicializacion ...............................
        aprob:=0;
        prom:=0;
      
      
        repeat    
            puntProcess(e,aprob,prom,promedio,participantes);
            readln(e.nombre);
            if e.nombre <> 'zzz' then                                            {--------------------continente---------------------------}
                readln(e.continente);
        until (e.continente <> reg_cont) or (e.nombre = 'zzz');
        
        
        // report b.................................................................................
        writeln('para el continente ',reg_cont,' aprobaron ',aprob,' y promocionaron ',prom);writeln;
        
        // report a.................................................................................
        if reg_cont = 'europa' then begin
            promedio := promedio / participantes;
            writeln('el promedio de notas europeas es ',promedio:4:2);writeln;
        end;
        
    ///////////////////////////////////////////////////////////////////////////////    
    until(e.nombre = 'zzz');
end;
{--------------------------------------------------------------
}
procedure mainProcess;
var e:examen;
begin

readln(e.nombre);
    if e.nombre <> 'zzz' then
        contProcess(e);
        
    // report c.....................................
    writeln('el participante con mayor puntaje fue: '); 
    writeln(max.nombre);
    writeln('de origen ',max.continente);
    writeln('con un puntaje de ',max.puntaje);
end;
{--------------------------------------------------------------
}
begin
        max.puntaje:=0;
        mainProcess;
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.14 sec, cpu time: 0 sec, memory peak: 5 Mb, absolute service time: 0,5 sec