Нахождение седловой точки матрицы

unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
Const n=4;
var
  Form1: TForm1;
    a:array[0..n,0..n] of integer;
    i,j,k,max,min,imax,jmin:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 
for i:=0 to 4 do
for j:=0 to 4 do
a[i,j]:=random(5);
for i:=0 to 4 do
for j:=0 to 4 do
StringGrid1.Cells[i,j]:=IntToStr(a[i,j]);
 
for j:=1 to n do
 
max:=a[1,j]; imax:=1;
for i:=1 to n do
if a[i,j]>max then
 begin
  max:=a[i,j];
  imax:=i;
 end;
 
min:=a[imax,1]; jmin:=1;
for k:=1 to n do
if a[imax,j]<min then
 begin
  min:=a[imax,j];
  jmin:=j;
 end;
if min=max then
 label2.Caption:=' Седловая точка найдена. Координаты ( '+ IntToStr(imax)+ ' , ' + IntToStr(jmin) + ' ) '
 else
  label2.Caption:=' Седловая точка не найдена ! ' ;
end;
 
end.