Выполнить сортировку массива включением - Turbo Pascal

Формулировка задачи:

Задан массив AX (N). Добавить массив С(К). Выполнить сортировку включением. В полученном массиве положительные элементы уменьшите вдвое, а отрицательные замените на значения их индексов. У меня сортирует как-то, но неправильно.. не по возрастанию( помогите пожалуйста исправить ошибку в сортировке.

Program Practica9;
uses crt;
const n=4;
      k=5;
var i,j,s,M, idx: integer;
    l: real;
    a: array [1..n] of integer;
    c: array [1..k] of integer;
    b: array [1..k+n] of real;
begin
  clrscr;
  randomize;
  j:=1;
  for i:=1 to n do begin
    a[i]:=Random(100)-5;
    b[j]:=a[i];
    inc(j);
  end;
  for i:=1 to k do begin
    c[i]:=Random(100)-17;
    b[j]:=c[i];
    inc(j);
  end;
  Writeln('Ishodnyi massiv: ');
  for i:=1 to n+k do
  Write(B[i]:3:0);
  Writeln;
  for i:=2 to n+k do
  begin
    s:=i-1;
    L:=b[i];
    While (s>0) and (L<=B[i]) do begin
      b[s+1]:=b[s];
      dec(s);
    end;
    b[s+1]:=L;
  end;
  j:=0;
  writeln('Otsortirovannyi massiv: ');
  for i:=1 to k+n do
  begin
  Write(b[i]:3:0);
    if b[i]<M then
    inc(j);
  end;
  for i:=1 to k+n do
  if b[i]>0 then
  b[i]:=b[i]/2 else
  if b[i]<0 then
  begin
  idx:=i;
  b[i]:=idx;
  end;
  writeln;
  writeln('Novyi massiv:');
  for i:=1 to k+n do
  write(b[i]:3:0);
  readln;
end.

Решение задачи: «Выполнить сортировку массива включением»

Листинг программы

Program Practica9;
uses crt;
const n=4;
      k=5;
var ax,c: array [1..n+k] of real;
    m,i,j,p: integer;
    x:real;
begin
  clrscr;
  randomize;
  writeln('Исходный массив AX');
  for i:=1 to n do
   begin
    ax[i]:=-5+10*random;
    write(ax[i]:5:1)
   end;
  writeln;
  writeln('Исходный массив C');
  for i:=1 to k do
   begin
    c[i]:=-5+10*random;
    write(c[i]:5:1)
   end;
  writeln;
  m:=n;
  for i:=1 to k do
   begin
    m:=m+1;
    ax[m]:=c[i]
   end;
  Writeln('Объединенный массив A+C: ');
  for i:=1 to m do
  Write(ax[i]:5:1);
  Writeln;
  for i:=2 to m do
   begin
    x:=ax[i];{запоминаем очередной элемент}
    j:=1;{смотрим что слева от него}
    while x>ax[j] do inc(j);{пока все меньше данного, идем вперед}
    for p:=i-1 downto j do{нашли меньший, сдвигаем массив от этого элемента-1}
    ax[p+1]:=ax[p];{на 1 вправо}
    ax[j]:=x;{вставляем найденный элемент на место}
   end;
  writeln('Отсортированный массив:');
  for i:=1 to m do
  Write(ax[i]:5:1);
  writeln;
  writeln('Новый массив:');
  for i:=1 to m do
   begin
    if ax[i]>0 then ax[i]:=ax[i]/2
    else if ax[i]<0 then ax[i]:=i;
    write(ax[i]:5:1)
   end;
  writeln;
  readln;
end.

Объяснение кода листинга программы

В программе объявлены две переменные: ax и c. Первая представляет собой массив из n+k элементов типа real, а вторая также является массивом из k элементов типа real.
В блоке clrscr вызывается функция, которая очищает экран.
Далее, в блоке randomize вызывается функция, которая генерирует случайное число в заданном диапазоне.
Затем, в блоке writeln выводится исходный массив ax.
После этого, в блоке for вычисляется значение переменной m, которое представляет собой сумму n и k.
В следующем блоке for вычисляется значение переменной i.
Затем, в блоке while происходит цикл, который продолжается до тех пор, пока i меньше или равно k.
Внутри цикла while происходит поиск наименьшего элемента в массиве ax. Для этого переменная j сдвигается влево от i, пока значение ax[j] больше значения x.
Когда наименьший элемент найден, он вставляется на место в массиве ax, используя переменные p и i.
После этого, в блоке for выводится отсортированный массив ax.
Затем, в блоке if происходит проверка каждого элемента массива ax на положительность или отрицательность. Если элемент положительный, то его значение делится на 2. Если элемент отрицательный, то его значение заменяется на i.
Наконец, в блоке write выводится новый массив, который представляет собой отсортированный массив ax.