ejercicio 37 repita repita

Program ejercicio;
Uses WinCrt;
Var
nombre:string;
respuesta:char;
ni, nii,promedio:real;
begin
repeat
begin
writeln ('Ingrese el nombre del alumno');
readln (nombre);
writeln ('Ingrese nota I');
readln (ni);
writeln ('Ingrese nota 2');
readln (nii);
promedio:=(ni+nii)/2;
writeln ('El promedio es ', promedio:5:2);
writeln ('');
writeln ('desea agregar otro alumno');
readln (respuesta); end;
until respuesta='N';
End.