Дан массив целых чисел. Требуется найти количество элементов, которые больше и меньше среднего арифметического всех элементов массива

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

i,n1,n2:integer;

s:real;

begin

for i:=1 to 10 do begin

readln(a[i]);

s:=s+a[i];

end;

s:=s/10;

for i:=1 to 10 do begin

if a[i]>s then inc(n1);

if a[i]<s then inc(n2);

end;

writeln('bolshe - ',n1,' menshe - ',n2);

end.