Удаление из массива

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button2: TButton;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a:array of integer;
  n:integer;
implementation
//процедура удаления
procedure Del(k:integer);
var i:integer;
begin
k:=k-1;
if k=n-1 then n:=n-1
else
 begin
  for i:=k to n-2 do
  a[i]:=a[i+1];
  n:=n-1;
 end;
end;
{$R *.dfm}
//создание массива
procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
randomize;
if not TryStrToInt(Edit1.Text,n)or(StrToInt(Edit1.Text)<1) then
 begin
  ShowMessage('Неверно введен размер массива');
  Edit1.Clear;
  exit;
 end;
n:=StrToInt(Edit1.Text);
stringgrid1.ColCount:=n;
Setlength(a,n);
for i:=0 to n-1 do
 begin
  a[i]:=random(20);
  stringgrid1.Cells[i,0]:=Inttostr(a[i]);
 end;
end;
//удаление числа
procedure TForm1.Button2Click(Sender: TObject);
var i,k:integer;
begin
if not TryStrToInt(Edit2.Text,k)or(StrToInt(Edit2.Text)<1)
or(StrToInt(Edit2.Text)>n) then
 begin
  ShowMessage('Неверно введен номер элемента');
  Edit2.Clear;
  exit;
 end;
k:=StrToInt(Edit2.Text);
Del(k);
stringgrid2.ColCount:=n;
for i:=0 to n-1 do
stringgrid2.Cells[i,0]:=Inttostr(a[i]);
end;
 
end.