Заполнить одномерный целочисленный массив размерности 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 FirstAim(n: integer);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FirstAim(n: integer);
var
  MyArray: array of integer;
  I, K: integer;
begin
  try
    SetLength(MyArray, n);
    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[0];
    MyArray[0] := MyArray[n - 1];
    MyArray[n - 1] := K;
    Form1.Memo1.Lines.Add(' ');
    Form1.Memo1.Lines.Add('Результат');
    for I := 0 to n - 1 do
    begin
      Form1.Memo1.Lines.Add(IntToStr(MyAr ray[I]));
    end;
  finally
    MyArray := nil;
  end;
end;

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

end.