" Дан одномерный массив целых чисел A[1..n]. Напишите программу, которая перепишет в массив B[1..n] сначала в убывающем порядке все отрицательные элементы массива А, а затем в возрастающем порядке все положительные элементы массива А. Например, для A = (4, -8, 7, -6, 0, -7, 5), получим B = (-6, -7, -8, 0, 4, 5, 7)."

И без readinteger

//PascalABC.Net 3.2procedure mysort(var mas: array of integer; int: integer);beginsetLength(mas, length(mas)+1);mas[length(mas)-1]:=int;end;beginvar a:=readarrinteger('Вводите A:', readinteger('n ='));var a1, a2: array of integer;for var i:=0 to length(a)-1 do if a[i]<0 thenmysort(a1, a[i]) else mysort(a2, a[i]);if length(a1)>0 then beginsort(a1);for var i:=length(a1)-1 downto 0 do a[length(a1)-1-i]:=a1[i]; end;if length(a2)>0 then begin sort(a2);for var i:=length(a1) to length(a)-1 do a[i]:=a2[i-length(a1)]; end;write (a);end.