Repita For, Sumador, promedios y horas trabajadas

Program Repita_for_sumadores;
Uses WinCrt;
Var i,n,op:integer;
HD,HN,CHD,CHN,TOTALHD,TOTALHN,TOTALINGRESO,nota,promedio,suma:real;
Begin


Writeln ('***MENÚ LUCY SUMADOR***');
Writeln ('***1-Promedio ingresando cuantas notas***');
Writeln ('***2-Promedio ingresando cuantos alumnos***');
Writeln ('***3-Total de ingresos por horas ingresando número de trabajadores***');
Readln (op);
ClrScr;


If op=1 then
Begin
Writeln ('***Promedio ingresando cuantas notas***');
Writeln ('');
Writeln ('***Cuantas notas***');
Readln (n);
ClrScr;


For i:=1 to n do
Begin
Writeln ('***Ingrese nota***', i);
Readln (nota);
suma:=suma+nota;
End;
Writeln ('La suma es: ', suma:5:3);
promedio:=suma/n;
Writeln ('El promedio es: ', promedio:5:3);
End;


If op=2 then
Begin
Writeln ('***Promedio de la materia Lógica de Programación ingresando nro de alumnos***');
Writeln ('');
Writeln ('***Cuantos alumnos cursan la materia***');
Readln (n);
ClrScr;


For i:=1 to n do
Begin
Writeln ('***Ingrese nota***', i);
Readln (nota);
suma:=suma+nota;
End;
Writeln ('La suma es: ', suma:5:3);
promedio:=suma/n;
Writeln ('El promedio de la materia Lógica de Programación es: ', promedio:5:3);
End;


If op=3 then
Begin
Writeln ('***Ingreso total de trabajadores***');
Writeln ('');
Writeln ('***Ingrese número de trabajadores***');
Readln (n);
ClrScr;
For i:=1 to n do
Begin
Writeln ('***Cantidad de horas diurnas***');
Readln (HD);
Writeln ('***Costo de horas diurnas***');
Readln (CHD);
TOTALHD:=HD*CHD;
Writeln ('***Cantidad de horas nocturnas***');
Readln (HN);
Writeln ('***Costo de horas nocturnas***');
Readln (CHN);
TOTALHN:=HN*CHN;
TOTALINGRESO:=TOTALHD+TOTALHN;
suma:=suma+TOTALINGRESO;
End;


Writeln ('El ingreso total de trabajadores es de: ', suma:5:3);
End;
End.