В матрице найти столбец, в котором произведение минимального элемента на максимальный больше заданной величины

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Mask;
 
type
 
  TMatr = array of array of real;
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Panel4: TPanel;
    Button1: TButton;
    StaticText1: TStaticText;
    Panel5: TPanel;
    Memo2: TMemo;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Memo1: TMemo;
    Splitter1: TSplitter;
    Button5: TButton;
    Panel1: TPanel;
    StaticText2: TStaticText;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
 
 
  private
  FMatr:TMatr;
     A : real;
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 var
     i,j,n,m: byte;
     f: TextFile;
  begin
  if (not OpenDialog1.Execute) then
      exit;
  Assignfile(f,OpenDialog1.FileName);
  reset(f);
try
   memo1.Text:='';
  m:=0;
  while( not Eoln(f)) do
    begin
      read(f,i);
      inc(m);
    end;
  if(m=0) then
      exit;
  n:=1;
  readln(f);
  while(not Eof(f)) do
    begin
      readln(f);
      inc(n);
    end;
  CloseFile(f);
  reset(f);
  SetLength(FMatr,n,m);
  for i:=0 to high(Fmatr) do
      begin
      memo1.Lines.Add('');
      for j:=0 to High(Fmatr[i]) do
        begin
        read(f,Fmatr[i,j]);
        memo1.lines.Strings[i]:=memo1.lines.Strings[i]+Format('%6.1f', [FMatr[i,j]]);
        end;
      end;
finally
  CloseFile(f);
end;
  end;
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
var
    z:array of real;
    i,j: byte;
    max,min:real;
begin
  memo2.Clear;
  j:=0;
  SetLength( z, high(FMatr));
  while j<high(FMatr[0]) do
    begin
      max:=FMatr[2,j];
      min:=FMatr[1,j];
      for i:=0 to high(FMatr) do
        begin
          if FMatr[i,j]<min then min:=FMatr[i,j];
          if FMatr[i,j]>max then max:=FMatr[i,j];
   end;
   z[j]:=max*min;
 
      inc(j);
    end;
 
  for i:=0 to high(FMAtr) do
   begin
    memo2.Lines.Add('');
    memo2.lines.Strings[i]:=memo2.lines.Strings[i]+Format('%6.1f', [z[i]]);
   end;
 
 
 { 
for j:=0 to high(FMatr[0]) do
    begin
      if Z[j]>A then
         for i:=0 to high(FMatr) do
            FMatr[j,i]:=FMatr[j,i]/A;
    end;
  for i:=0 to high(FMatr) do
        begin
        memo2.Lines.Add('');
        for j:=0 to high(FMatr[i]) do
          begin
          memo2.lines.Strings[i]:=memo2.lines.Strings[i]+Format('%6.1f', [FMatr[i,j]]);
          end;
        end;
    }
end;
 
 
 
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
showmessage('В матрице найти столбец, в котором произведение минимального элемента на максимальный больше заданной величины А. Разделить элементы строки с таким же номером, как найденный столбец, на величину А.');
end;
 
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  A:=StrToFloat(InputBox('Ввод А','введите А','2'));
  Button2.Enabled:=true;
end;
 
end.