Упорядочить часть массива - Free Pascal

const n=10;
type mas=array of real;
var a,b:mas;
    i,j,k,j1,j2:integer;
    tmp:real;
begin
 randomize;
 setlength(a,n);
 for i:=low(a) to high(a)do
  begin
   a[i]:=random*(-10+random(31));
   write(a[i]:7:2);
  end;
 writeln; 
 i:=high(a);
 k:=0;
 while (i>=low(a))and(k<2) do
  begin
   if a[i]<0 
    then
      begin
       if k=0 then j2:=i
              else j1:=i;
       inc(k)
      end; 
   dec(i)
  end;
 if k<2 then writeln('нет двух отрицательных')
        else
         begin
          if j2-j1=1
           then writeln('предпоследний и последний отрицательные рядом')
           else
            begin
             inc(j1);
             setlength(b,j2-j1);
             writeln('массив между предпоследним и последним отрицательными, упорядоченный по не возрастанию:');
             for i:=low(b) to high(b) do begin b[i]:=a[j1];inc(j1) end;
             if high(b)>=0
              then 
               begin
                for i:=low(b) to high(b)-1 do
                 for j:=low(b) to high(b)-i-1 do
                  if b[j]<b[j+1] then begin tmp:=b[j];b[j]:=b[j+1];b[j+1]:=tmp end;
                for i:=low(b) to high(b) do write(b[i]:7:2)
               end
            end 
         end    
end.