Найти в этом массиве минимальный элемент N и максимальный элемент M

unit Unitlab9;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Spin, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    SpinEdit1: TSpinEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    StringGrid2: TStringGrid;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit4: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    procedure SpinEdit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  A:array [1..100] of integer;
  i,j,max,min,n:integer;
  flag:boolean;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
n:=strtoint(spinedit1.Text);
stringgrid1.colCount:=n;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(spinedit1.Text);
stringgrid1.colCount:=n;
stringgrid2.colCount:=n;
for i:=1 to n do begin
a[i]:=strtoint(stringgrid1.Cells[i-1,0]);
end;
min:=a[1];
for i:=1 to n do
if a[i]<min
then min:=a[i];
Edit1.Text:=FloatToStr(min);
Edit3.Text:=FloatToStr(min);
max:=a[1];
for i:=1 to n do
if a[i]>max
then max:=a[i];
Edit2.Text:=FloatToStr(max);
Edit4.Text:=FloatToStr(max);
for i:=min+1 to max-1 do
begin
flag:=false;
for j:=1 to n do
if a[j]=i then begin flag:=true; break; end;
if flag=false then StringGrid2.Cells[j-1]:=IntToStr(i);{Как вывести в новую таблицу результат}
end;
end;
end.

StringGrid2.ColCount:= 0;
StringGrid2.RowCount:= 1;
if (max-1)>min then
  begin
  for i:=min+1 to max-1 do 
    begin
    flag:= true; 
    for j:=1 to n do if a[j]= i then 
      begin
      flag:= false; 
      break;
      end;
    if flag then
      begin
      StringGrid2.ColCount:= StringGrid2.ColCount +1;  // добавить ячейку
      StringGrid2.Cells[StringGrid2.ColCount -1, 0]:= IntToStr(i);  // вывести число в таблицу
      end;
    end;
  end;
if StringGrid2.ColCount = 0 then  // если ячейки не добавлялись - чисел не найдено
  begin
  StringGrid2.ColCount:= 1;  // добавить ячейку
  StringGrid2.Cells[0,0]:= 'Нет таких чисел';  // на случай, если ничего не будет заполнено
  end;
end;