Удаление элемента из массива (Delphi)

[Alyonka_v]

Здравствуйте!
Помогите пожалуйста с удалением элементов из массива.
Нужно удалить из массива Х, состоящего из n элементов, первые четыре нулевых элемента.
Если использую for I := n downto 1 do удаляются 4 последних нулевых элемента,
а если использую for I := 1 to n do не удаляется 0, если он следует сразу за другим нулём.
Что нужно изменить? Заранее спасибо за помощь.

procedure TForm1.Button1Click(Sender: TObject);
type massiv=array [1..50] of real;
procedure del_mass(m, kol:integer; var y:massiv);
var i: integer;
begin
  for I := m to kol-1 do
    y[i]:=y[i+1];
end;
var i, n, k: byte;
    x: massiv;
begin
  n:=strtoint(edit1.text);
  for I := 1 to n do
    x[i]:=strtofloat(stringgrid1.Cells[i,0]);
  k:=0;
  for I := n downto 1 do
    begin
      if x[i]=0 then
        begin
          if k>=4 then break
          else
            del_mass(i,n,x);
          k:=k+1;
        end;
    end;
  for I := 1 to n-k do
    stringgrid2.cells[i,0]:=floattostr(x[i]);
end;

[Вавел из ГМТУ]

Тоесть имеется одномерный массив из n элементов и из него нужно удалить последовательность из подряд идущих 4-х нулей?
Удалить или чемто заменить?

[puporev]

Для удаления элементов из массива нужно использовать цикл while ..do, после каждого удаления уменьшать на 1 длину массива.

Вот пример под Вашу задачу.

type massiv=array [1..50] of real;
var
  Form1: TForm1;
  n:byte;
implementation

{$R *.dfm}
procedure del_mass(m, kol:integer; var y:massiv);
var i: integer;
begin
for I := m to kol-1 do
y[i]:=y[i+1];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(edit1.text);
stringgrid1.ColCount:=n;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i,k: byte;
    x: massiv;
begin
for I := 1 to n do
x[i]:=strtofloat(stringgrid1.Cells[i-1,0]);
k:=0;
I:=1;
while i<=n do
  begin
    if x[i]=0 then
       begin
        del_mass(i,n,x);
        n:=n-1;
        k:=k+1;
       end
     else i:=i+1;
     if k=4 then break;
  end;
stringgrid2.ColCount:=n;
for I := 1 to n do
stringgrid2.cells[i-1,0]:=floattostrF(x[i],ffFixed,5,2);
end;
end.

[Alyonka_v]

Спасибо огромное за помощь