ПОМОГИТЕ ПОЖАЛУЙСТА!!!!Дан линейный массив, содержащий n элементов. С клавиатуры вводится

program raf105;

const

 n = 9;

var

 a,b1,b2:array[1..n] of integer;

 k,i,j,c1,c2:integer;

begin

write('Введите число k: ');

readln(k);

writeln('Заполните массив:');

for i:=1 to n do

 readln(a[i]);

for i:=1 to n do

begin

 if a[i] gt; k

   then begin

     c1:= c1 + 1;

     b1[c1]:= a[i];

   end;

 if a[i] lt; k

   then begin

     c2:= c2 + 1;

     b2[c2]:= a[i];

   end;

end;

for i:=1 to c1 do

 a[i]:=b1[i];

for i:=c1+1 to c2+c1 do

 a[i]:=b2[i-c1];

write('Вывод: ');

for i:=1 to n do

 write(a[i],' ');

end.

PascalABC 3.4.2