unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TArr = array of integer;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n: Integer;
   TArr2: Array [1..2] of integer;
  A1: TArr;



implementation

{$R *.dfm}




procedure delElem( var A : TArr; elem: String );
var i,ii, h : Integer;

begin

 for ii:=1 to Length(A)-1 do
 begin
  if IntToStr(A[ii]) = elem then
  begin
     h := High(A);
     if elem = '' then Exit;
     if h = -1 then Exit;
     for i := ii to h - 1 do A[i] := A[i + 1];
     SetLength(A, h);
  end;
 end;


end;

procedure asdf(var A: TArr);
begin
  SetLength(A, 11);
  A[1]:=10;
  A[2]:=11;
  A[3]:=12;
  A[4]:=13;
  A[5]:=14;
  A[6]:=15;
  A[7]:=16;
  A[8]:=17;
  A[9]:=18;
  A[10]:=19;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Arr: TArr; i:Integer;
begin
  //Создаёт массив
  asdf(Arr);
  Memo1.Clear;
  for i:=1 to Length(Arr)-1 do
  begin
    Memo1.Lines.Append( IntToStr(Arr[i]) );
  end;
 
  
end;

procedure TForm1.Button2Click(Sender: TObject);
var Arr: TArr; i:Integer;
begin
  //Создаёт массив
   asdf(Arr);
  //Удадяет массив
  delElem( Arr, Edit1.Text );
  Memo2.Clear;
  for i:=1 to Length(Arr)-1 do
  begin
   Memo2.Lines.Append( IntToStr(Arr[i]) );
  end;
end;

end.