Сортировка массива

var
      mas: array[1..100] of integer;
      i, j, K, x: integer;
 
begin
      Writeln(' Введите размер массива ');
      Readln(K);
      for i := 1 to K do
      begin
            mas[i] := Random(-100, 100);
            Write(mas[i]:5);
      end; 
      Writeln;
      i := 1;
      j := 2;
      ///---------------------------------------
      while i <= k do
      begin
            if mas[i] >= 0 then
            begin
            j:=i+1;
                  while j <= k do
                  begin
                        if mas[j] < 0 then begin x := mas[i]; mas[i] := mas[j]; mas[j] := x;   j := j + 2; break; end;
                        j := j + 1;
                  end;
            end;
            i := i + 2;
      end;
      ///---------------------------------------
      Writeln('Преобразованный массив:');
      for i := 1 to K do
      begin
            Write(mas[i]:5);
      end; 
end.

begin
  var a:array of integer:=(-3,2,0,-6);// var a:=ArrRandomInteger(20,-10,10);
  writeln(a);
  var b:=a[low(a)]>=0;
  for var i:=low(a)+1 to high(a) do begin
      var j:=i;
      while (j<high(a)) and ((a[j]>=0)=b) do j:=j+1;
        swap(a[i],a[j]);
        b:=not b;
    end;
    writeln(a);
end.

var mas: array[1..100] of integer;
    k,j: integer;
    b:boolean;
begin
randomize;
writeln(' Введите размер массива ');
readln(k);
for var i := 1 to k do
 begin
  mas[i] := Random(-100, 100);
  write(mas[i]:5);
 end;
writeln;
b:=mas[1]>=0;
for var i:=2 to k do
 begin
  j:=i;
  while (j<k) and ((mas[j]>=0)=b) do
  j:=j+1;
   swap(mas[i],mas[j]);//это процедура обмена, встроена в АВС.net
  b:=not b;
 end;
writeln('Преобразованный массив:');
for var i := 1 to k do
write(mas[i]:5);
end.