ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ

Уровень C. Заполнить массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли в начала массива, а все отрицательные и нули – в конце. Вычислите количество положительных элементов.
Пример:
Массив:
20 -90 15 -34 10 0
Результат:
20 15 10 -90 -34 0
Количество положительных элементов: 3

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016begin  var n:=ReadInteger('n=');  var a:=ArrRandom(n,-100,100); a.Println;  a:=a.Where(x->x>0).Concat(a.Where(x->x<=0)).ToArray;  a.Println;  Writeln('Количество положительных элементов: ',    a.Where(x->x>0).Count)end.Тестовое решение:n= 15-29 56 -40 -23 -26 -5 -69 37 -35 74 72 -63 -69 1 -9356 37 74 72 1 -29 -40 -23 -26 -5 -69 -35 -63 -69 -93Количество положительных элементов: 5