Смена или изменение параметров по их возрастанию

Procedure sortirovka;
var
flag:Boolean;
i,r,max,k,min,l,Nach,New:integer;
a:array [1..255] of integer;
begin//1ый
DataModule1.KolPoley.Active:=true;
kol:=DataModule1.KolPoley.Fields[0].AsInteger;
DataModule1.KolPoley.Active:=false;
ShowMessage(inttostr(kol)); //Берем общее кол-во строк в Access
Flag:=false;
DataModule1.Vopr.Active:=true;
r:=1;
max:=1;
i:=DataModule1.Vopr.RecNo;
DataModule1.Vopr.DisableControls;
DataModule1.Vopr.First;
while not(DataModule1.Vopr.Eof) do
begin//2ой
  a[r]:=DataModule1.Vopr.FieldByName('Номер').AsInteger;
  DataModule1.Vopr.Next;
  r:=r+1;
  max:=r;
end;//1
min:=a[1];
DataModule1.Vopr.RecNo:=i;
DataModule1.Vopr.EnableControls;
If (kol=1) and (a[1]=1) then
begin//3
end//2
else
if (kol=1) and (a[1]>1) then
begin //4
while a[1]<>1 do
begin //5
a[1]:=a[1]-1;
end;//3
DataModule1.Sort.Active:=false;
  DataModule1.Sort.Parameters.ParamByName('Nach').Value:=a[1];
  DataModule1.Sort.Parameters.ParamByName('Pol').Value:=a[1];
  DataModule1.Sort.Active:=true;
  end //4
  else
if (kol>1) then
begin//6
For k:=2 to kol do
begin //7
  while a[k] - a[k-1] <> 1 do
  begin//8
  if a[k] - a[k-1] > 2 then begin//9
  a[k]:=a[k]-1
  end//5
  else
  Nach:=a[k];//Взяли начальное значение в Access
  a[k]:=a[k]-1;
  flag:=true;
  end;//6
  DataModule1.Sort.Active:=false;
  If flag=true then begin//10
  DataModule1.Sort.Parameters.ParamByName('Nach').Value:=Nach;
  DataModule1.Sort.Parameters.ParamByName('Pol').Value:=a[k];
  end//7
  else
  begin//11
  DataModule1.Sort.Parameters.ParamByName('Nach').Value:=a[k];
  DataModule1.Sort.Parameters.ParamByName('Pol').Value:=a[k];
  DataModule1.Sort.open;
  DataModule1.Sort.Active:=true;
  ShowMessage('Сортировка пройдена успешно');
  DataModule1.Vopr.RecNo:=i;
  end;//8
  end;//9
  ShowMessage('Сортировка пройдена успешно');
  end;//10
end;//11