Выбросить из матрицы элементы, индексы которых делятся на четыре, и заменить их максимальным элементом

nit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids,Math;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   A: array of array of  real;
   Max:Real;
   i,j,M,N : Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 if Edit1.text='' then
   begin
     ShowMessage('Введите "M" ');
     Edit1.SetFocus;
     Exit;
   end
   else
   begin
      M:=StrToInt(Edit1.text);
   end;
   if Edit2.text='' then
   begin
     ShowMessage('Введите "N" ');
     Edit2.SetFocus;
     Exit;
   end
   else
   begin
      N:=StrToInt(Edit2.text);
   end;
   if( M<4 ) and (N<4) then
   begin
    ShowMessage('"M" или  "N" должно быть больше 4-х ');
     Exit;
     end;
SetLength(A,m,n);
  With StringGrid1 do
   begin
     FixedCols:=0;
     FixedRows:=0;
     ColCount:=N;
     RowCount:=M;
   end;
    //Заполнение массива и вывод в 1-ый StringgRid
   for i:=0   to M-1 do
    begin
      for j:=0 to N-1 do
      begin
      A[i,j]:=RandomRange(-30,30);
      StringGrid1.Cells[j,i]:=FloatToStr(A[i,j]);
       end;
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
Var
C,R:Integer;
begin
 With StringGrid2 do
   begin
     FixedCols:=0;
     FixedRows:=0;
     ColCount:=N;
     RowCount:=M;
   end;
 
//поиск Max
   Max:=-10000000;
  for i:=0   to M-1 do
    begin
      for j:=0 to N-1 do
      begin
      if A[i,j]>Max then Max:=A[i,j];
       end;
    end;
    Edit3.text:=FloatToStr(Max) ;
      //замена  максимальным элементом
 
   for i:=0   to M-1 do
    begin
      for j:=0 to N-1 do
      begin
         if ((i+1) mod 4 =0 ) or  ((j+1) mod 4 =0 )  then
         begin
          A[i,j]:=Max;
         end
         else
         begin
         A[i,j]:=A[i,j];
         end;
      end;
    end;
 
      //замена последующих за наибольшими  0-ми
      SetLength(A,m+1,n+1);
   for i:=0   to  M do
    begin
      for j:=0 to N do
      begin
      if A[i,j]=Max then
       begin
        A[i,j+1]:=0;
       end
       else
       begin
         A[i,j]:=A[i,j];
       end;
       end;
    end;
      SetLength(A,m,n);
 
 
      //Вывод измененного массива  во 2-ой StringgRid
      for i:=0   to M-1 do
    begin
      for j:=0 to N-1 do
      begin
      StringGrid2.Cells[j,i]:=FloatToStr(A[i,j]);
      end;
    end;
 
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
//Запрет ввода символов
begin
if not (Key in ['0'..'9', #8 ]) then Key:=#0;
 
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
//Запрет ввода символов
begin
 if not (Key in ['0'..'9', #8 ]) then Key:=#0;
end;
 
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
 //Запрет ввода символов
begin
Key:=#0;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.text:='';
  Edit2.text:='';
  Edit3.text:='';
end;
 
end.