Обработка двумерных массивов n*m заполненного случайным образом

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  a:array of array of integer;
  m,n: integer;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
//зададим некоторые параметры таблиц
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth;
 end;
with StringGrid2 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth;
 end;
with StringGrid3 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth;
 end;
Button1.Enabled:=true; //1 кнопку включим
Button2.Enabled:=false;//2 выключим
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
//проверим ввод размеров
val(Edit1.Text,n,i);
if (i<>0)or (n<4)then
 begin
  ShowMessage('Неверно введено количество строк');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
val(Edit2.Text,m,i);
if (i<>0)or (m<3)then
 begin
  ShowMessage('Неверно введено количество столбцов');
  Edit2.Clear;
  Edit2.SetFocus;
  exit
 end;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;
StringGrid2.RowCount:=n;
StringGrid2.ColCount:=m;
StringGrid3.RowCount:=n;
StringGrid3.ColCount:=m;
Setlength(a,n,m);
for i:=0 to n-1 do
for j:=0 to m-1 do
 begin
  a[i,j]:=1+random(10);
  StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
 end;
Button1.Enabled:=false; //1 кнопку выключим
Button2.Enabled:=true;//2 включим
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,x:integer;
begin
//первые 3 столбца в квадрат
for i:=0 to n-1 do
for j:=0 to 2 do
a[i,j]:=sqr(a[i,j]);
for i:=0 to n-1 do
for j:=0 to m-1 do
StringGrid2.Cells[j,i]:=IntToStr(a[i,j]);
//обменяем строки
for j:=0 to m-1 do
 begin
  x:=a[0,j];
  a[0,j]:=a[n div 2-1,j];
  a[n div 2-1,j]:=x;
  x:=a[n-1,j];
  a[n-1,j]:=a[n div 2,j];
  a[n div 2,j]:=x;
 end;
for i:=0 to n-1 do
for j:=0 to m-1 do
StringGrid3.Cells[j,i]:=IntToStr(a[i,j]);
end;
 
end.