Дана последовательность,которая состоит из 0 и единиц,переместите в начало последовательности все нули,а затем все единицы. Помогите пожалуйста

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017// Внимание! Если программа не работает, обновите версию!begin  ArrRandom(ReadInteger('n='),0,1).Println.Sorted.Printlnend.Примерn= 150 0 1 1 0 1 1 1 1 0 0 1 1 0 10 0 0 0 0 0 1 1 1 1 1 1 1 1 1