Поиск максимального значения в матрице

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure StringGrid1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.StringGrid1Click(Sender: TObject);
const
  SIZE=2;
var a:array[1..SIZE,1..SIZE] of integer;
max:integer;
max2:integer;
maxend:integer;
i:integer;
j:integer;
begin
 for i:=1 to SIZE do
  for j:=1 to SIZE do
    a[i,j]:=StrToInt(StringGrid1.Cells[i-1,0]);
  // поиск максимального элемента
  max:=1; // пусть первый элемент максимальный
     for i:=2 to SIZE do
     for j:=2 to SIZE do
    if a[i,j]> a[max]then max:=i;
   // вывод результата
  label2.caption:='Максимальный элемент массива:'
      +IntToStr(maxend)+#13+''Номер элемента:'+ IntToStr(max);
end;
end.

procedure TForm1.FindBClick(Sender: TObject);
Var
  i, j: integer;
begin
  jmax := 0;
  edResult.Text:='';
  Grid.ColCount := Grid.ColCount + 1;
  Grid.Cells[m + 1, 0] := 'max in row';
  Grid.ColWidths[m+1]:=60;
  For i := 0 to n-1 do
  begin
    For j := 0 to m-1 do
      if A[i, j] > A[i, jmax] then
      begin
        jmax := j;
      end;
      Grid.Cells[m+1,i+1] := IntToStr(A[i,jmax]);
      edResult.Text := edResult.Text + 'строка' + IntToStr(i+1) + ' max: ' + IntToStr(A[i,jmax]) + '| ';
  end;
 
end;