Дана вещественная таблица А(10). Найдите количество элементов таблицы, больших среднего арифметического всех ее элементов. (Паскаль)

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016begin  var a:=ArrRandomReal(10,0,9); a.Println;  var c:=a.Average;  Writeln('Кол-во элементов, больших ср.арифм. равно ',    a.Where(x->x>c).Count)end.Тестовое решение:2.59730962412307 5.74823168187786 0.183425193737925 1.40910695977933 1.53072231054805 1.10500636608573 2.72817251073577 5.34373824686917 8.61965516750685 6.63805930904954Кол-во элементов, больших ср.арифм. равно 4