Преобразовать массив таким образом,чтобы элементы, лежащие в интервале [a,b], располагались в начале

a,b,i,tmp:Integer;
begin
a:= StrToInt(edt1.text);
b:=StrToInt(edt2.text);
i:=1;
for i:=1 to n do
m[i]:=StrToInt(strngrd1.cells[i,1]) ;
repeat
tmp:=m[i];
m[i]:=m[a];
m[a]:=tmp;
i:=I+1;
a:=a+1;
until a<=b  ; {
for i:=1 to 15 do
strngrd2.cells[i,1]:=IntToStr(m[i]); }

  a:= StrToInt(edt1.text);
  b:=StrToInt(edt2.text);
 
  for i:=1 to n do 
    m[i]:=StrToInt(strngrd1.cells[i,1]);
 
  // Упорядочиваем старым добрым "пузырьком", только правильно пишем условие
  for i := 1 to n do
    for j := n downto i + 1 do
    begin
      // или if ((m[j-1]<a) and (m[j-1]>b)) and ((m[j]>=a) and (m[j]<=b))
      // или так (не забудь подключить в Uses модуль Math):
      if not InRange(m[j - 1], a, b) and InRange(m[j], a, b) then
      begin
        T := m[j - 1]; m[j - 1] := m[j]; m[j] := T;
      end;
  end;
 
  for i:=1 to n do
    strngrd2.cells[i,1]:=IntToStr(m[i]);

procedure TForm1.Button32Click(Sender: TObject);
var a, b : integer;
    i, j, T : Integer;
    m : array of integer;
begin
  a:= StrToInt(edt1.text);
  b:=StrToInt(edt2.text);
  n := strngrd1.ColCount - 1;
  SetLength(m, n + 1);
 
  for i:=1 to n do
    m[i]:=StrToInt(strngrd1.cells[i,1]);
 
  // Упорядочиваем старым добрым "пузырьком", только правильно пишем условие
  for i := 1 to n do
    for j := n downto i + 1 do
    begin
      // не забудь подключить в Uses модуль Math
      if not InRange(m[j - 1], a, b) and InRange(m[j], a, b) then
      begin
        T := m[j - 1]; m[j - 1] := m[j]; m[j] := T;
      end;
  end;
 
  for i:=1 to n do
    strngrd2.cells[i,1]:=IntToStr(m[i]);
end;