Разработать программу поиска номера максимального элемента в числовой последовательности с разными элементами

unit main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Edit3: TEdit;
    Label2: TLabel;
    Memo1: TMemo;
    XPManifest1: TXPManifest;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  A:Array[1..1000] Of Integer;
  n:Integer;
 
Implementation
 
{$R *.dfm}
 
{Разработать программу поиска номера элемента с заданным значением
в не упорядочной числовой последовательности с разными элементами.}
 
Procedure TForm1.Button1Click(Sender: TObject);
Var
  i:Integer;
Begin
  Randomize;
  n:=StrToInt(Edit2.Text);
  For i:=1 To n Do
    Begin
      A[i]:=Random(89)+10; //генерируем двухзначные числа
      Edit1.Text:=Edit1.Text + '  ' + IntToStr(A[i]); //  выводим их в Edit1 через пробел
    End;
End;
 
Procedure TForm1.Button2Click(Sender: TObject);
Var
  Cell,i:Integer;
  Yes:Boolean;
Begin
  Cell:=StrToInt(Edit2.Text);
      For i:=1 To n Do
        If A[i] = StrToInt(Edit3.Text) Then//если элемент найден, то записываем в Yes True и выходим из цикла
          Begin
            Yes:=True;
            Break;
          End
        Else
          Yes:=False;//иначе Yes раен False, что значит элемент не найден
    If Yes Then
      Memo1.Lines.Add('Нужный элемент под номером ' + IntToStr(i))
    Else
      Memo1.Lines.Add('Элемент не найден');
End;
 
Procedure TForm1.Button3Click(Sender: TObject);
Begin
  If Form1.CloseQuery Then Form1.Close;
End;
 
End.

unit main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    Edit2: TEdit;
    Label1: TLabel;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  A:Array[1..1000] Of Integer;
  n:Integer;
 
Implementation
 
{$R *.dfm}
 
(*разработать программу поиска номера максимального элемента в
числовой последовательности с разными элементами*)
 
Procedure TForm1.Button1Click(Sender: TObject);
Var
  i:Integer;
Begin
  Randomize;
  n:=StrToInt(Edit2.Text);
  For i:=1 To n Do
    Begin
      A[i]:=Random(89)+10; //генерируем двухзначные числа
      Edit1.Text:=Edit1.Text + '  ' + IntToStr(A[i]); //  выводим их в Edit1 через пробел
    End;
End;
 
Procedure TForm1.Button2Click(Sender: TObject);
Var
  i:Integer;
  Max,imax:Integer;
Begin
  Max:=0;
  For i:=1 To n Do
    If A[i] > Max Then
      Begin
        Max:=A[i];
        imax:=i;
      End;
  Memo1.Lines.Add('Масквимальное значение '+IntToStr(Max)+
  ' под номером '+IntToStr(imax));
End;
 
Procedure TForm1.Button3Click(Sender: TObject);
Begin
  If Form1.CloseQuery Then Form1.Close;
End;
 
End.