Если максимум матрицы окажется на главной диагонали, то элементы строки заменить его значением

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    strngrd2: TStringGrid;
    lbl1: TLabel;
    lbl2: TLabel;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
var i, j, max : Integer;
a:array[1..5,1..5] of Integer;
 begin
  for i:=1 to 5 do
   begin
    for j:=1 to 5 do
     begin
      a[i,j]:=StrToInt(strngrd1.Cells[i,j]);
      max:= -1000;
     end;
   end;
  for i:=1 to 5 do
   begin
    for j:=1 to 5 do
     begin
      if a[i,j]=>max then
       begin
        max:=a[i,j];
       end;
 
      if (i = j) and (a[i,j] = max) then
       begin
         a[1, j] := max;
       end;
      end;
    end;
 
  for i:=1 to 5 do
   for j:=1 to 5 do
    strngrd2.Cells[i,j]:=IntToStr(a[i,j]);
 end;
 
procedure TForm1.btn3Click(Sender: TObject);
 begin
  form1.close;
 end;
 
procedure TForm1.btn2Click(Sender: TObject);
var i:Integer;
 begin
  for i:=1 to 5 do
   begin
    strngrd1.Rows[i-1].Clear;
    strngrd2.Rows[i-1].Clear;
   end;
 end;
 
end.

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
 
type
TForm1 = class(TForm)
strngrd1: TStringGrid;
strngrd2: TStringGrid;
lbl1: TLabel;
lbl2: TLabel;
btn1: TButton;
btn2: TButton;
btn3: TButton;
procedure btn1Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
var i, j, max : Integer;
a:array[0..4,0..4] of Integer;
begin
max:= 0;
for i:=0 to 4 do
for j:=0 to 4 do
begin
a[i,j]:=StrToInt(strngrd1.Cells[i,j]);
 
if a[i,j]>=max then
begin
max:=a[i,j];
lbl1.Caption:=IntToStr(max);
end;
end;
for i:=0 to 4 do
begin
for j:=0 to 4 do
begin
if (i = j) and (a[i,j] = max) then
begin
strngrd2.Cells[0,j]:=IntToStr(max);
end;
strngrd2.Cells[i,j]:=IntToStr(a[i,j]);
 
end;
end;
 
 
end;
 
procedure TForm1.btn3Click(Sender: TObject);
begin
form1.close;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
var i:Integer;
begin
for i:=1 to 5 do
begin
strngrd1.Rows[i-1].Clear;
strngrd2.Rows[i-1].Clear;
end;
end;
 
end.

procedure TForm3.Button1Click(Sender: TObject);
const N = 4;
var i, j, max, im, jm : Integer;
    a :array[0..N, 0..N] of Integer;
begin
  max := Low(integer);
  im := -1; jm := -1;
  for i := 0 to StringGrid1.RowCount - 1 do
    for j := 0 to StringGrid1.ColCount - 1 do
      begin
        if not TryStrToInt(StringGrid1.Cells[j, i], a[i, j]) then begin
          ShowMessage(Format('Пустое или нечисловое значение в ячейке [%d, %d]', [i + 1, j + 1]));
          Exit;
        end;
        if a[i, j] > max then begin
          max := a[i, j];
          im := i; jm := j;
        end;
      end;
  if im = jm then
    for i := 0 to N do
      a[im, i] := max;
  for i := 0 to N do
    for j := 0 to N do
      StringGrid2.Cells[j, i] := IntToStr(a[i, j]);
end;