Дана таблица а[1: 100] найти количество элементов этой таблицы, больших среднего арифметического всех ее элементов

var a:array[1..100] of integer;

s,i:integer ;

sr:real;

Begin

  {vvod massiva a}

   for i:= 1 to 100 do

     sr:=sr+a[i];

   sr:= sr/100;

   for i:= 1 to 100 do

     if a[i]>sr then

      s:=s+1;

   writeln(s);

End.