Найти максимальный элемент на главной диагонали матрицы и в его столбце положительные элементы заменить на 0

procedure TForm1.Button2Click(Sender: TObject);
var a,b,c,i,j,n: integer;
max,min:integer;
begin
n:=strtoint(edit1.text);
max:=StrToInt(StringGrid1.Cells[1,1]);
a:=StrToInt(StringGrid1.Cells[1,1]);
for StringGrid1.Cells[i:=n-1,j:=n-1]do
begin
if max<StrToInt(StringGrid1.Cells[i:=i+1,j:=j+1])
then min:=max;
max:=StrToInt(StringGrid1.Cells[i,j])
else
min:=StrToInt(StringGrid1.Cells[i:=i+1,j:=j+1]);
end;
n
for StringGrid1.Cells[i:=n-1,j:=n-1]do
end;
end;
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  a:array[1..10,1..10]of integer;
  b:array[1..10]of integer;
  i,j,min,n:integer;
begin
randomize;
n:=strtoint(edit1.text);
for i:=1 to n do
 Begin
  min:=15;
  for j:=1 to n do
   begin
    a[i,j]:=Random(31)-15;
    stringgrid1.Cells[i-1,j-1]:=IntToStr(a[i,j]);
 
 end;
 end;
 
  end;
procedure TForm1.Button2Click(Sender: TObject);
var a,b,c,i,j,n: integer;
max,min:integer;
begin
n:=strtoint(edit1.text);
max:=StrToInt(StringGrid1.Cells[1,1]);
a:=StrToInt(StringGrid1.Cells[1,1]);
for StringGrid1.Cells[i:=n-1,j:=n-1]do
begin
if max<StrToInt(StringGrid1.Cells[i:=i+1,j:=j+1])
then min:=max;
max:=StrToInt(StringGrid1.Cells[i,j])
else
min:=StrToInt(StringGrid1.Cells[i:=i+1,j:=j+1]);
end;
n
for StringGrid1.Cells[i:=n-1,j:=n-1]do
end;
end;
end.

var
  Form1: TForm1;
  a:array of array of integer;
  n:integer;
implementation
 
{$R *.dfm}
//создать матрицу и вывести ее в таблицу
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
if not TryStrToInt(Edit1.Text,n)or not(n in [2..20]) then
 begin
  ShowMessage('Введите размер матрицы целое число от 2 до 20');
  Edit1.Clear;
  Edit1.SetFocus;
  Exit;
 end;
randomize;
SetLength(a,n,n);
with StringGrid1 do
 begin
  fixedrows:=0;
  fixedcols:=0;
  rowcount:=n;
  colcount:=n;
  defaultcolwidth:=35;
  for i:=0 to n-1 do
  for j:=0 to n-1 do
   begin
    a[i,j]:=-15+random(31);
    StringGrid1.Cells[j,i]:=inttostr(a[i,j]);
   end;
 end;
end;
//Выполнить условие
procedure TForm1.Button2Click(Sender: TObject);
var i,j,imx:integer;
begin
imx:=0;
for i:=1 to n-1 do
if a[i,i]>a[imx,imx] then imx:=i;
Label2.Caption:='Максимальный элемент на главной диагонали='+inttostr(a[imx,imx])
                +' в столбце '+inttostr(imx+1);
with StringGrid2 do
 begin
  fixedrows:=0;
  fixedcols:=0;
  rowcount:=n;
  colcount:=n;
  defaultcolwidth:=35;
  for i:=0 to n-1 do
  for j:=0 to n-1 do
   begin
    if(j=imx)and(a[i,j]>0)then a[i,j]:=0;
    StringGrid2.Cells[j,i]:=inttostr(a[i,j]);
   end;
 end;
end;