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

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.