Сортировка включением

uses crt;
const nmax=100;
var ax,c:array[1..nmax] of integer;
    n,k,m,q,i,j,x,kp,ko,sm:integer;
    pr:real;{произведение может быстро выйти за пределы целых типов}
begin
clrscr;
randomize;
repeat
write('Введите размер массива AX от 2 до ',nmax div 2,' n=');
readln(n);
until n in [2..nmax div 2];
writeln('Исходный массив AX:');
for i:=1 to n do
 begin
  ax[i]:=-20+random(51);;
  write(ax[i]:4);
 end;
writeln;
repeat
write('Введите размер массива C от 2 до ',nmax div 2,' k=');
readln(k);
until k in [2..nmax div 2];
writeln('Исходный массив C:');
for i:=1 to n do
 begin
  c[i]:=-10+random(50);
  write(c[i]:4);
 end;
writeln;
for i:=1 to k do
 begin
  n:=n+1;
  ax[n]:=c[i];
 end;
writeln('Соединенный массив AX+C');
kp:=0;
ko:=0;
sm:=0;
pr:=1;
for i:=1 to n do
 begin
  write(ax[i]:4);
  if ax[i]>0 then
   begin
    inc(kp);
    inc(sm,ax[i]);
   end;
 if ax[i]<0 then
  begin
   inc(ko);
   pr:=pr*ax[i];
  end;
 end;
writeln;
for i:=2 to n do
 begin
  x:=ax[i];{запоминаем очередной элемент}
  j:=1;{смотрим что слева от него}
  while x>ax[j] do inc(j);{пока все меньше данного, идем вперед}
  for m:=i-1 downto j do{нашли меньший, сдвигаем массив от этого элемента-1}
  ax[m+1]:=ax[m];{на 1 вправо}
  ax[j]:=x;{вставляем найденный элемент на место}
 end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(ax[i]:4);
writeln;
writeln('Количество положительных=',kp,' их сумма=',sm);
write('Количество отрицательных=',ko,' их произведение=');
if ko=0 then write(0)else write(pr:0:0);
readln
end.