Удаление элементов из динамического массива

[dashulka]

Задание такое:из массива удалить элементы между первым и вторым элементами, модули которых меньше заданной величины.Подскажите пожалуйста что здесь не так

procedure TForm1.DelClick(Sender: TObject);
Var i,j,x,y,l:integer;
    m:array of integer;
begin
l:=length(m);
For i:=0 to l-1 do
if abs(M[i])<abs(chislo.Value) then
if abs(m[i+1])>abs(chislo.Value) then
x:=m[i+1];
for i:=x to l-1 do
m[i]:=m[i+1];
SetLength(m,sg2.ColCount-1);
for i:=0 to L-1 do
sg2.Cells[i,1]:=inttostr(m[i]);
sg2.ColCount:=sg2.ColCount-1;

chislo - это заданное число
sg - StreengGriв

Заранее спасибо!

[vovk]

в общем пытался написать что не так, вышло что тут всё не так
Что значит удалить между первым и вторым элементом ? не совсем понятно

Кажется понял что имелось в виду.
Может нужно было чтото вроде этого?

l:=0;
 for i:=0 to high(m) do
 if abs(m[i])>=abs(chislo.Value) then
 begin
 m[l]:=m[i];
 l:=l+1;
  end;
 Setlength(m,l);
sg2.rowcount:=2;
sg2.Colcount:=length(m);
for i:=0 to high(m) do
sg2.Cells[i+1,1]:=inttostr(m[i]);

[dashulka]

Я попробовала запустить удалились все ячейки,кроме одной

[vovk]

Сообщение от dashulka

Я попробовала запустить удалились все ячейки,кроме одной

ячейки в смысле в стриггриде? Так там я его подогнал под размер получаемого массива+ FixedCol b

[vovk]

Сообщение от dashulka

Я попробовала запустить удалились все ячейки,кроме одной

Ячейки в смысле в стриггриде? Так там я его подогнал под размер получаемого массива+ FixedCol и FixsedRow, если в массиве нет значений попадающих под условие, то массив ессно будет пустой и соответственно Stringgrid будет с одной колонкой.
Задайте значение chislo.Value поменьше и посмотрите на результат.

зы чтото сообщения двоятся хмм