Дан массив a[1.. N] и число b. Переставить числа в массиве так, чтобы сначала шли элементы меньшие b, затем равные b, а лишь затем большие b — Pascal(Паскаль)

uses crt;
const n=8;
var a:array[1..n] of integer;
    i,j,k,x,b:integer;
begin
ClrScr;
for i:=1 to n do
 Readln(a[i]);
for i:=1 to n do
 Write(a[i],'  ');
Readln(b);
j:=1;
for i:=1 to n do
 if (a[i]<b) then
  begin
   x:=a[i];
   for k:=i downto j do
   a[k]:=a[k-1];
   a[j]:=x;
   inc(j);
  end;
for i:=1 to n do
 Write(a[i],'  ');
Readln;
end.