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

uses crt;
var ax,c:array [1..100]of integer;
a,n,m,i,j,k,p,ch:integer;
begin
clrscr;
randomize;
write('Vvedite l=');readln(n);
write('Vvedite n=');readln(k);
writeln('Ishodnii massiv C:');
for i:=1 to n do
begin
ax[i]:=random(50)-10;
write(ax[i]:4);
end;
writeln;
writeln('Massiv X:');
for i:=1 to k do
begin
c[i]:=random(50)-10;
write(c[i]:4);
end;
writeln;
for i:=1 to k do
begin
n:=n+1;
ax[n]:=c[i];
end;
writeln('Obedenennii masssiv:');
for i:=1 to n do
write(ax[i]:4);
writeln;
for i:=2 to n do
begin
a:=ax[i];
j:=1;
while a>ax[j] do
inc(j);
for m:=i-1 downto j do
ax[m+1]:=ax[m];
ax[j]:=a;
end;
writeln('Massiv posle sortirovki:');
for i:=1 to n do
write(ax[i]:4);
writeln;
p:=0;
write('Vvedite K=');readln(ch);
for i:=1 to n do
if (ax[i]=ch) then p:=p+1;
if p<>0 then writeln('Kolichestvo el-tov ravnih ',ch,': ',p)
else writeln('Net el-tov ravnih ',ch)
end.