сортировка частей массива(паскаль)

[Useless]

народ, помогите пожалусто найти ошибку
задача:Преобразовать одномерный массив таким образом, чтобы сначала располагались все элементы, модуль которых меньше 2, а потом – все остальные. Упорядочить каждую часть массива по возрастанию, используя алгоритм сортировки методом прямого выбора.
моя прога:

program lab5;
const n=10;
var a,b:array [1..n] of real;
    i,inul,p,k,j:integer;
    s:real;
    t,z,f,x:integer;
    min, minj:real;
begin
.......
{ну тут вводим массив а}
.......
for i:=1 to n do
  begin
  if abs(a[i])<2 then
    begin
    k:=k+1;
    b[k]:=a[i];
    j:=k+1;
    end;
  end;
for i:=1 to n do
   begin
    if abs(a[i])>=2 then
    begin
    b[j]:=a[i];
    j:=j+1;
    end;
   end;
for i:=1 to k-1 do
 begin
 t:=i; min:=b[i];
 for z:=i+1 to k do
  if b[z]<min then
   begin
   t:=z;
   min:=b[t];
   end;
 b[t]:=b[i];
 b[i]:=min;
 end;
for i:=k+1 to j-2 do
 begin
 f:=i; minj:=b[i];
 for x:=k+2 to j-1 do
  if b[x]<minj then
   begin
   f:=x;
   minj:=b[f];
   end;
 b[f]:=b[i];
 b[i]:=minj;
 end;
for i:=1 to j-1 do
writeln(b[i]:7:5)
end.

у меня не работает самая последняя часть, где сортировка второй части массива вернее, работает, но криво, сортирует кусками как захочется)) поможете?

[Ламер_001]

1) зачем заводить второй массив, когда можно прямо в первом переставлять? и при этом за один проход сделается только не забудь запомнить номер
2) при сортировке просто меняй местами с текущим проверяемый элемент, если a[i] > a[j], о5 таки дополнительные переменные зачем?
3) ну и видимо вторая сортировка неправильная потому что в for x:=k+2 to j-1 do вместо k+2 надо писать i+1