Отсортировать положительные элементы массива по возрастанию, отрицательные элементы оставить на своих местах

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=-25+random(50);
  write(a[i]:4);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if(a[i]>0)and(a[j]>0)and (a[i]>a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Сортировка положительных:');
for i:=1 to n do
write(a[i]:4);
readln
end.

program z8;
 
const
  N = 10;
 
var
  a: array [1..N] of integer;
  i, k, m, ind, j: integer;
 
procedure mas;
var
  i: integer;
 
begin
  for i := 1 to N do
    a[i] := Random(100)-50;
end;
 
procedure mas2;
var
  i: integer;
begin
  for i := 1 to N do
    write(a[i]:2, ' ');
end;
 
procedure sort;
var
  i, k, m, d, j: integer;
 
begin
   
  for i := 1 to N - 1 do
  begin
    m := a[i];
    d := i;
    for j := i + 1 to N do
      if (a[i]>m) and (a[i]>0)and(a[j]>0)and (a[i]<a[j]) then
      begin
        m := a[j];
        d := j;
      end;
    a[d] := a[i];
    a[i] := m;
  end;
end;
 
begin
  mas;
  mas2;
  writeln;
  sort;
  mas2;
end.