horas diurnas y nocturnas+notas, promedios

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

Writeln('***Menulucysumador***');
Writeln('***1.-Promedio ingresando cuantas notas***');
Writeln('***2.-Promedio ingresando cuantos alumnos***');
Writeln('***3.-Total de ingresos por horas ingresandonúmeros de trabajadores***');
Readln (op);
ClrScr;

If op= 1 then
Begin
Writeln('***1.-Promedio ingresando cuantas notas***');
Writeln('');
Writeln('cuantas notas');
Readln(n);
ClrScr;
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.