Переписать массив так, чтобы сначала подряд шли положительные числа, а затем - подряд отрицательные

uses crt;
const n=10;
      a:array[1..n] of integer=(-1,5,-5,-3,4,8,-5,9,-2,7);
var a1:array[1..n] of integer;
    i,j,k,x:integer;
begin
a1:=a; //массив-константу нельзя изменить
writeln('Исходный масив');
for i:=1 to n do
write(a1[i]:3);
writeln;
k:=0;
for i:=1 to n do
if a1[i]>0 then
 begin
  k:=k+1;
  x:=a1[i];
  for j:=i downto k+1 do
  a1[j]:=a1[j-1];
  a1[k]:=x;
 end;
writeln('Перестановка');
for i:=1 to n do
write(a1[i]:3);
end.

uses crt;
const max=11;
var a:array[1..max,1..max] of integer;
    n,i,j,ik,jk,k,x:integer;
begin
randomize;
repeat
write('Размер матрицы, нечетное число от 5 до ',max,' n=');
read(n);
until (n in [5..max])and odd(n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
   end;
  writeln
 end;
write('Введите число для поиска k=');
read(k);
ik:=0;
jk:=0;
i:=1;
while (i<=n)and(ik=0) do
 begin
  j:=1;
  while(j<=n)and(ik=0)do
  if a[i,j]=k then
   begin
    ik:=i;
    jk:=j
   end
  else inc(j);
  if ik=0 then inc(i);
 end;
if ik=0 then
 begin
  write('Числа ',k,' в матрице нет');
  exit
 end;
 x:=a[ik,jk];
 a[ik,jk]:=a[n div 2+1,n div 2+1];
 a[n div 2+1,n div 2+1]:=x;
 writeln('Перестановка числа ',k,' в центр матрицы');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if(i=n div 2+1)and(j=n div 2+1) then textcolor(12)
     else textcolor(0);
     write(a[i,j]:4)
    end;
   if i<n then writeln;
  end;
end.