Promedios

Program Repita_until4;
Uses WinCrt;
Var nombre:string;
resp:char;
one,two,prome,suma,total:real;
j:integer;
Begin
REPEAT
j:=j+1;
Writeln ('***Cálculo de notas***');
Writeln ('');
Writeln ('***Ingrese nombre del alumno***');
Readln (nombre);
Writeln ('');
Writeln ('***Ingrese nota 1***');
Readln (one);
Writeln ('');
Writeln ('***Ingrese nota 2***');
Readln (two);
Writeln ('');
prome:=(one+two)/2;
Writeln ('***El promedio es: ***', prome:5:3);
Writeln ('');
suma:=suma+prome;
Writeln ('***Desea ingresar nota de otro alumno, S/N***');
Readln (resp);
UNTIL resp='N';
Writeln ('***La suma de promedios es: ***', suma:5:3);
total:=suma/j;
Writeln ('***El promedio general es: ***', total:5:3);
End.