В полученном массиве определите количество элементов, которые меньше заданного значения М

Program Practica9;
uses crt;
const n=4;
      k=5;
var i,j,s,L,M: integer;
    a: array [1..n] of integer;
    c: array [1..k] of integer;
    b: array [1..k+n] of integer;
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)-5;
    b[j]:=c[i];
    inc(j);
  end;
  Writeln('Ishodnyi massiv: ');
  for i:=1 to n+k do
  Write(B[i]:3);
  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;
  Write('Vvedite M: ');
  Readln(M);
  j:=0;
  writeln('Otsortirovannyi massiv: ');
  for i:=1 to k+n do
  begin
  Write(b[i]:3);
    if b[i]<M then
    inc(j);
  end;
  Writeln;
  Writeln('Kolichestvo elementov <M:',j:3);
  Readln;
end.

uses crt;
var ax,c:array [1..100]of integer;
a,n,m,i,j,k,p,ch:integer;
begin
clrscr;
randomize;
write('Vvedite n=');readln(n);
write('Vvedite k=');readln(k);
writeln('Ishodnii massiv A:');
for i:=1 to n do
begin
ax[i]:=random(50)-10;
write(ax[i]:4);
end;
writeln;
writeln('Massiv C:');
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:=1 to n-1 do
for j:=1 to n-1 do
if ax[j]>ax[j+1] then
begin
a:=ax[j+1];
ax[j+1]:=ax[j];
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 menshe ',ch,': ',p)
else writeln('Net el-tov menshe ',ch)
end.