Дан массив вывести на экран сначала неотрицательные элементы массива потом отрицательные. решить в PascalABC

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin   var n:=ReadInteger('Количество элементов в массиве: ');   var a:=ArrRandom(n,-10,10).Println(',');   Write('Неотрицательные элементы: ');   a.Where(x->x>=0).PrintLn(',');   Write('Отрицательные элементы: ');   a.Where(x->x<0).PrintLn(','); end. Тестовое решение: Количество элементов в массиве:  15 0,2,-2,-9,6,4,7,2,5,-3,3,-5,0,9,-6 Неотрицательные элементы: 0,2,6,4,7,2,5,3,0,9 Отрицательные элементы: -2,-9,-3,-5,-6