Заполнить одномерный целочисленный массив размерности n числами, введёнными с клавиатуры. Вставить после максимального элемента массива число, равное удвоенному максимальному элементу массива (считать, что такой элемент единственный). Распечатать полученный массив — Delphi(Делфи)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SecondAim(n: integer);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SecondAim(n: integer);
var
  MyArray: array of integer;
  I, K: integer;
begin
  try
    SetLength(MyArray, n + 1);
    for I := 0 to n - 1 do
    begin
      MyArray[I] :=
        StrToInt(InputBox('Введите ' + IntToStr(I) + ' элемент массива.',
        'Массив', ''));
    end;
    Form1.Memo1.Lines.Add('Исходный массив');
    for I := 0 to n - 1 do
    begin
      Form1.Memo1.Lines.Add(IntToStr(MyAr ray[I]));
    end;
    K := MyArray[n - 1];
    K := K * 2;
    MyArray[n] := K;
    Form1.Memo1.Lines.Add(' ');
    Form1.Memo1.Lines.Add('Результат');
    for I := 0 to n do
    begin
      Form1.Memo1.Lines.Add(IntToStr(MyAr ray[I]));
    end;
  finally
    MyArray := nil;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SecondAim(StrToInt(InputBox('Введит е размерность массива.', 'Массив', '')));
end;

end.