Помогите решить задачу по информатике(Используя PascalABC).

 program grade; 
 
var 
  i, n, s: Integer; 
  av: Real;  
  a: array[1..10] of integer; 
 
begin 
  n := 0; 
  s := 0; 
  WriteLn('Введите десять отметок: '); 
  for i := 1 to 10 do 
  begin 
    ReadLn(a[i]); 
    s := s + a[i];   
  end; 
   
  av := s / 10; 
   
  for i := 1 to 10 do 
  begin 
    if a[i] > av then 
      Inc(n);      
  end; 
   
  WriteLn('Средний балл по предмету: ', av); 
  WriteLn('Количество учащихся с отметками выше среднего: ', n); 
end.