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

var
  Form1: TForm1;
  a:array of integer;
  n:integer;
implementation
 
{$R *.dfm}
//создание массива
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
if not tryStrToInt(Edit1.Text,n)
or(StrToInt(Edit1.Text)<1) then
 begin
  showmessage('Неверно введен размер массива');
  exit
 end;
n:=StrToInt(Edit1.Text);
stringgrid1.ColCount:=n;
Setlength(a,n);
for i:=0 to n-1 do
 begin
  a[i]:=random(100)+1;
  stringgrid1.Cells[i,0]:=Inttostr(a[i]);
 end;
end;
//удаление
procedure TForm1.Button2Click(Sender: TObject);
var i,i1:integer;
begin
i:=0;
i1:=-1;
while (i<n)and(i1=-1) do
if (a[i]mod 2=0)and(a[i] mod 7<>0) then i1:=i
else inc(i);
if i1=-1 then showmessage('Нет четных элементов, не кратных 7')
else
 begin
  if i1=n-1 then
   begin
    dec(n);
    Setlength(a,n);
   end
  else
   begin
    for i:=i1 to n-2 do
    a[i]:=a[i+1];
    dec(n);
    Setlength(a,n);
   end;
  if n=0 then showmessage('Все элементы удалены')
  else
   begin
    stringgrid2.ColCount:=n;
    for i:=0 to n-1 do
    stringgrid2.Cells[i,0]:=Inttostr(a[i]);
   end;
 end;
 
end;