Помогите решить

В массиве а1, а2, а3 ... а15 подсчитать количество элементов, больших среднего арифметического, и количество меньших и равных среднему арифметическому элементов массива.

Const

maxn = 15;

type

myarr = array [1 ... maxn] of longint;

var

a: myarr;

k1, k2, k3, sr, i: longint;

begin

for i : = 1 to 15 do begin

read (a[i]) ;

sr : = sr + a[i];

end;

sr : = sr div 15;

for i : = 1 to 15 do begin

if (a[i] > sr) then

inc (k1) ;

if (a[i] = sr) then

inc (k2) ;

if (a[i] < sr) then

inc (k3) ;

end;

writeln ('Количество элементов, больших среднего арифметического, = ', k1) ;

writeln ('Количество элементов, равного среднему арифметическому, = ', k2) ;

writeln ('Количество элементов, меньших среднего арифметического, = ', k3) ;

end.