В массиве, состоящем из 10-ти целых чисел, найти количество элементов…

Var a: array[1… 10] of real; i,j,m: integer; n: real; beginn: =0; m: =0; for i: =1 to 10 dobeginreadln (a[i]); n: =n+a[i]; end; n: =n/10; for j: =1 to 10 dobeginif (a[j]>n) then m: =m+1; end; writeln (m); end.