Посчитать средний балл успеваемости студентов

Задача. Ввести оценки студентов одной группы по одному предмету. Подсчитать средний балл и количество оценок выше средней.
Решение.

Program Ball;
Const 
M=25;
Var
B:Array[1..M] OF Integer;
S:Real; {сумма и средний балл}
N,I,K:Integer; {K - счетчик}
Begin
Writeln('Введите количество оценок'); Read (N);
Writeln('Введите оценки'); 
For I:= 1 To N Do
Read(B[I]);
 S:=0; 
For I:= 1 To N Do
S := S+B[I];
S := S/N; {средний балл }
Writeln('Средний балл - ',S);
K: = 0; 
For I:= 1 To N Do 
If B[I]>S Then
K:=K+1;
Writeln('Количество оценок выше средней = ',K);
End.