Минимальная строка матрицы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button3: TButton;
    Button5: TButton;
    Edit3: TEdit;
 
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
 
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const
  n=7;
  m=3;
 
var
  Form1: TForm1;
a:array[0..n,0..m]of integer;
i,j:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Button2.Visible := False;
Button1.Visible := True;
StringGrid1.FixedCols:= 1;
StringGrid1.FixedRows:= 1;
StringGrid1.RowCount := m+1;
StringGrid1.ColCount := n+1;
randomize;
for i:=1 to m do
for j:=1 to n do
begin
a[i,j]:=Random(30)-10;
StringGrid1.Cells[j, i] :=IntToStr(A[i,j]);
if a[i,j]<0 then a[i,j]:=-1;
if a[i,j]>0 then a[i,j]:=1;
StringGrid2.Cells[j,i] := IntToStr(A[i,j]);
end; end;
 
 
 
procedure TForm1.Button3Click(Sender: TObject);
var
i,j:integer;
str,stb:integer;
begin
Button4.Visible := True;
Edit1.Color:=clWhite;
Edit2.Color:=clWhite;
if Edit1.Text='' then Edit1.Color:=clred;
if Edit2.Text='' then Edit2.Color:=clred;
if (Edit1.Text='') or (Edit2.Text='')  then exit;
if Edit1.Text <> '' then
begin
   Button4.Visible := True;
   Button3.Visible := False;
str:=StrToInt(Edit1.Text);
stb:=StrToInt(Edit2.Text);
StringGrid3.RowCount:=str;
StringGrid3.ColCount:=stb;
randomize;
for i:=StringGrid3.FixedCols to StringGrid3.ColCount-1 do
 for j:=StringGrid3.FixedRows to StringGrid3.RowCount-1 do
  begin
   StringGrid3.Cells[i,j]:=IntToStr(random(100));
  end;
    end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;ch1,ch2:char;
begin
ch1:='A';ch2:='A';
for i:=1 to Stringgrid1.rowcount do
  Stringgrid1.Cells[0,i]:=inttostr(i);
  Stringgrid1.cells[1,0]:=ch1;
  for j:=2 to Stringgrid1.colCount do begin
    inc(ch1);
    Stringgrid1.Cells[j,0]:=ch1;     end;
for i:=1 to stringgrid2.rowCount do
  stringgrid2.Cells[0,i]:=inttostr(i);
  stringgrid2.Cells[1,0]:=ch2;
  for j:=2 to stringgrid2.colCount do begin
    inc(ch2);
    stringgrid2.Cells[j,0]:=ch2; end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Visible := False;
Button2.Visible := True;
with StringGrid1 do
  for i:=FixedCols to ColCount-1 do
  for j:=FixedRows to RowCount-1 do
    Cells[i, j]:='';
    with StringGrid2 do
     for i:=FixedCols to ColCount-1 do
  for j:=FixedRows to RowCount-1 do
    Cells[i, j]:='';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit1.Color:=clWhite;
Edit2.Color:=clWhite;
Button4.Visible := False;
Button3.Visible := True;
with StringGrid3 do
  for i:=0 to ColCount-1 do
    Cols[i].Clear;
end;
 
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
    #8,'1'..'9':;
    else Key:=#0;
end;
if Edit1.Text='0' then
  if Key='0' then Key:=#0;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 
case Key of
    #8,'1'..'9':;
    else Key:=#0;
end;
if Edit1.Text='0' then
  if Key='0' then Key:=#0;
end;
 
 
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Edit1.MaxLength := 2;
end;
 
procedure TForm1.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Edit2.MaxLength := 2;
end;
end.