Работа с массивом в StringGridе Поиск минимального и максимального элементов

unit AK_max_min; 
interface 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Grids, StdCtrls, ExtCtrls, Math; 
type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    RadioGroup1: TRadioGroup; 
    StringGrid1: TStringGrid; 
    Button2: TButton; 
    Label1: TLabel; 
    Button3: TButton; 
    Label2: TLabel; 
    Button4: TButton; 
    procedure Button2Click(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure Button3Click(Sender: TObject); 
    procedure Button4Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
var 
  Form1: TForm1; 
implementation 
{$R *.dfm} 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
 i , j : integer;                              //строки и столбцы массива 
 i1, j1 : integer;                             //кол-во строк и столбцов 
 i1_str, j1_str : string; 
 max, min : extended; 
const 
 Mas_Matr: array [1..6,1..6] of extended =    //массив типизированных констант 
 ((12.3, 42.7, 1.4, 8.5, 9.0, 27.1), 
 (17.9, 4.2, 1.1, 4.98, 34.54, 56.6), 
 (36.6, 85.3, 0.2, 5.5, 25.12, 4.4), 
 (5.5, 72.01, 44.4, 72.4, 66.31, 18.7), 
 (6.6, 2.11, 53.02, 8.54, 5.785, 6.49), 
 (8.7, 0.1, 6.7, 9.9, 0.234, 9.72)); 
 
                                      //тело  
begin 
                                   //заполнение матрицы вручную 
if RadioGroup1.ItemIndex = 0 then 
Begin 
 i1_str:=InputBox('Ввод кол-ва строк','Введите кол-во строк - целое неотрицательное число',#0); 
 Try 
  if (i1_str=#0) or (StrToInt(i1_str)<=0) then Exit; 
  StringGrid1.RowCount:=StrToInt(i1_str); 
  i1:=StrToInt(i1_str); 
  except 
  on EConvertError do   //обработка ошибки при выполнении функций StrToInt и StrToFloat 
  Begin 
   ShowMessage('Ошибка ввода. Вводите только целые числа!'); 
   Exit; 
  End; 
 End; 
 
 j1_str:=InputBox('Ввод кол-ва столбцов','Введите кол-во столбцов - целое неотрицательное число',#0); 
 Try 
  if (j1_str=#0) or (StrToInt(j1_str)<=0) then Exit; 
  StringGrid1.ColCount:=StrToInt(j1_str); 
  j1:=StrToInt(j1_str); 
  except 
  on EConvertError do 
  Begin 
   ShowMessage('Ошибка ввода. Вводите только целые числа!'); 
   Exit; 
  End; 
 End; 
 //StringGrid1.SetFocus; 
 Button3.Visible:=True; 
 Button1.Visible:=False; 
End; 
 
 
                              //заполнение матрицы случайными числами 
if RadioGroup1.ItemIndex = 1 then 
Begin 
 i1_str:=InputBox('Ввод кол-ва строк','Введите кол-вo строк - целое неотрицательное число',#0); 
 Try 
  if (i1_str=#0) or (StrToInt(i1_str)<=0) then Exit; 
  StringGrid1.RowCount:=StrToInt(i1_str); 
  i1:=StrToInt(i1_str); 
  except 
  on EConvertError do 
  Begin 
   ShowMessage('Ошибка ввода. Вводите только целые числа!'); 
   Exit; 
  End; 
 End; 
 
 j1_str:=InputBox('Ввод кол-ва столбцов','Введите кол-вo столбцов - целое неотрицательное число',#0); 
 Try 
  if (j1_str=#0) or (StrToInt(j1_str)<=0) then Exit; 
  StringGrid1.ColCount:=StrToInt(j1_str); 
  j1:=StrToInt(j1_str); 
  except 
  on EConvertError do 
  Begin 
   ShowMessage('Ошибка ввода. Вводите только целые числа!'); 
   Exit; 
  End; 
 End; 
 
 for i:=1 to i1 do 
   for j:=1 to j1 do 
   Begin 
    StringGrid1.Cells[j-1,i-1]:=FloatToStr(Random); 
   End; 
                        //поиск max и min эл-тов 
    //i:=0;j:=0;i1:=0;j1:=0; 
    min:=StrToFloat(StringGrid1.Cells[0,0]); 
    for i:=0 to StringGrid1.RowCount - 1 do 
     for j:=0 to StringGrid1.ColCount - 1 do 
     if StrToFloat(StringGrid1.Cells[i,j])<min then 
     Begin 
      min:=StrToFloat(StringGrid1.Cells[i,j]); 
      Label1.Caption:='Минимальный элемента массива:   '+FloatToStr(min); 
     End; 
    max:=StrToFloat(StringGrid1.Cells[0,0]); 
    for i:=0 to StringGrid1.RowCount - 1 do 
     for j:=0 to StringGrid1.ColCount - 1 do 
     if StrToFloat(StringGrid1.Cells[i,j])>max then 
     Begin 
      max:=StrToFloat(StringGrid1.Cells[i,j]); 
      Label2.Caption:='Максимальный элемент массива:   '+FloatToStr(max); 
     End; 
End; 
 
                           // заполнение матрицы константами 
if RadioGroup1.ItemIndex = 2 then 
 for i:=1 to 6 do 
   for j:=1 to 6 do 
   Begin 
    StringGrid1.RowCount:=6;   //строки 
    StringGrid1.ColCount:=6;   //столбцы 
    StringGrid1.Cells[j-1,i-1]:=FloatToStr(Mas_Matr[i,j]); 
    Label1.Caption:='Минимальный элемента массива:   0,1'; 
    Label2.Caption:='Максимальный элемент массива:   85,3'; 
   End; 
end; 
 
procedure TForm1.Button3Click(Sender: TObject); 
var 
i, j : integer; 
min, max : extended; 
begin 
  with StringGrid1 do 
  Begin 
   min:=StrToInt(Cells[0,0]);         //пусть это min элемент 
   for i := 0 to RowCount - 1 do 
    for j := 0 to ColCount - 1 do 
     if StrToFloat(Cells[j,i])<min then 
     min:=StrToFloat(Cells[j,i]); 
   Label1.Caption := 'Минимальный элемента массива:   '+ FloatToStr(min); 
 
   max:=StrToInt(Cells[0,0]);        //пусть это mах элемент 
   for i := 0 to RowCount - 1 do 
    for j := 0 to ColCount - 1 do 
     if StrToFloat(Cells[j,i])>max then 
     max:=StrToFloat(Cells[j,i]); 
   Label2.Caption:='Максимальный элемент массива:   '+FloatToStr(max); 
   End; 
end; 
 
procedure TForm1.Button4Click(Sender: TObject); 
var 
i: Integer; 
begin 
 for i := 0 to StringGrid1.RowCount - 1 do 
 StringGrid1.Rows[i].Clear(); 
end; 
 end.