переписать подряд в массив с положительные а в массив м отрицательные элементы массива на pascal.10 вариант

begin
var a:=ReadlnString('Введите исходный массив:').ToIntegers;
Write('Массив с положительными элементами:');
var C:=a.Where(t->t>0).ToArray.Println;
Write('Массив с отрицательными элементами:');
var M:=a.Where(t->t<0).ToArray.Println;
end.


Введите исходный массив: 213 1 -123 12 -12 3312 -21 22 14 -21
Массив с положительными элементами:213 1 12 3312 22 14
Массив с отрицательными элементами:-123 -12 -21 -21