Вставка чисел

[Сергей33]

Помогите решить задачу!
Дан массив целых чисел (n=25), заполненный случайным образом числами из промежутка [-35,75].
Вставить число k 1 после всех элементов, больших заданного числа, а число k2 -перед всеми элементами, кратными 3. (k1 и k2 вводить с клавиатуры).

writeln ('введите k1 и k2');
readln(k1, k2);
writeln ('введите число k3');
readln (k3);
for i:=n downto 1 do
begin
if a[i]>k3 then
begin
for j:=i to n do
b[j]:= a[j];
for j:=i to n do
a[j+1]:=b[j];
a[i]:=k1;
inc(n);
end;
if(a[i]/3)=(a[i]div 3) then
begin
for j:=i to n do
b[j]:= a[j];
for j:=i to n do
a[j+1]:=b[j];
a[i]:=k2;
inc(n);
end;
end;
writeln ('массив с k1 k2');
end.

тут число вставляется но не после элементов больших заданного числа, а перед.
Помогите пжалуйста, заренее спасибо!!!