ПОМОГИТЕЕЕЕ!СРОЧНО!
3. Дан массив действительных чисел B[N]. Сформировать из него новый массив C[N], выбросив из него максимальные элементы.

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016begin  var n:=ReadInteger('Количество элементов=');  var b:=ArrRandomReal(n,-10,20);  b.Println(', ');  var mx:=b.Max;  var c:=b.Where(x->x<>mx);  c.Println(', ')end.Тестовое решение:Количество элементов= 13-3.19967562016085, 0.998729616868649, 17.2918094030078, 1.10658910642685, 10.4760369241592, 6.72070787601206, 8.34657945593194, 12.5555840984711, 13.4678390079494, -1.30778588881147, 19.5660732731065, 18.4909354934892, 9.13206894841607-3.19967562016085, 0.998729616868649, 17.2918094030078, 1.10658910642685, 10.4760369241592, 6.72070787601206, 8.34657945593194, 12.5555840984711, 13.4678390079494, -1.30778588881147, 18.4909354934892, 9.13206894841607