calcular nota de alumnos

Program notasdealumnos;
Uses WinCrt;
Var
contador,nota,promedio:real;
i,n:integer;
Begin
Writeln ('Cuantas notas tiene el alumno');
Readln (n);
For i:= 1 to n do
Begin
Writeln ('Ingrese nota',i);
Readln (nota);
contador:=contador+nota;
end;
Writeln ('La suma es : ', contador:3:2);
promedio:=contador/n;
writeln ('El promedio es: ', promedio:3:2);
End.