Массив в Delphi. Решение задачи.

[Heles]

Задача:
В матрице n-го порядка найти максимальный среди элементов, лежащих
ниже побочной диагонали, и минимальный среди элементов, лежащих выше
главной диагонали.
Проблема:
Нужно составить формулу нахождения максимального и минимального числа. С математикой и воображением всегда проблемы были. Я пытался сделать, но максимальное число у меня пишет - 0.
Код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    StringGrid2: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const
Nmax=10;
        type
mas1=array[1..Nmax,1..Nmax] of integer;
mas2=array[1..2] of integer;
var
  Form1: TForm1;
  A:mas1;
  B:mas2;
  N,j,i:integer;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
N:=3;
Edit1.text := IntToStr(N);
StringGrid1.Cells[0,0]:='Ìàññèâ A:';
for i:=1 to N do begin
StringGrid1.Cells[0,i]:='i='+IntToStr(i);
StringGrid1.Cells[i,0]:='j='+IntToStr(i);
StringGrid2.Cells[0,0]:='Max';
StringGrid2.Cells[1,0]:='Min';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);  //Здесь изменение массива.
begin
{$C+}
try
N:=StrToInt(edit1.text);
StringGrid1.RowCount:=N+1;
StringGrid1.ColCount:=N+1;
for i:=1 to N do
        StringGrid1.Cells[0,i]:='i='+IntToStr(i);
for i:=1 to N do
        StringGrid1.Cells[i,0]:='j='+IntToStr(i);
 if N>Nmax then Abort;
 if N<=0 then
        case MessageDlg('Число строк и столбцов меньше либо равно 0',mtError,[mbok,mbcancel],0) of
        mrok: StringGrid1.RowCount:=Nmax+1; // тут интересует как сделать, чтобы еще и ColCount одновременно менял значение с RowCount?
         end;
for i:=1 to N do
for j:=1 to N do
StringGrid1.cells[i,j]:='';
except
on EAbort do
        case MessageDlg('Выход за предел массива. Предел равен 10',mtError,[mbok],0) of
        mrOK : StringGrid1.RowCount:=NMax+1; end;
on EConvertError do
case MessageDlg('Введите целое число',mtError,[mbok],0) of
        mrok: exit; end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);  // здесь поиск максимального значения и вписывание элементов в таблицу.
var ma,mi,r:integer;
begin
for i:=1 to N do
for j:=1 to N  do
StringGrid1.Cells[i,j]:=IntToStr(random(50));
ma:=A[1,2];
R:=N-1;
for i:=2 to R do
for j:=3 to N do
if a[i,j]>Ma then
           Ma:=a[i,j]
           else Ma:=A[1,2];
StringGrid2.Cells[0,1]:=IntTOStr(ma);

end;

end.

[VIK_aka_TOR]

if a[i,j]>Ma then
           Ma:=a[i,j]
           else Ma:=A[1,2]; // эта строка лишняя
StringGrid2.Cells[0,1]:=IntTOStr(ma);

да и с циклом нужно подумать...

for i:=1 to N-1 do //- столбец
for j:=1 to N-i  do //- строка