Переставить строки в матрице n-го порядка

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Grids;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  a:array of array of integer;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
  m,i,j:integer;
begin
   m:=StrToint(Edit1.Text);
   SetLength(a,m,m);
   StringGrid1.RowCount:=m;
   StringGrid1.ColCount:=m;
   for i:=0 to m-1 do
   for j:=0 to m-1 do
   begin
     a[i,j]:=Random(9);
     StringGrid1.Cells[i,j]:=IntToStr(a[i,j]);
   end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  max,ni,m,i,j:integer;
  t:integer;
begin
   m:=StrToint(Edit1.Text);
   max:=-1;
   for i:=0 to m-1 do
   for j:=0 to m-1 do
   begin
   if a[i,j]>max then
     begin
       max:=a[i,j];
     end;
   end;
   if ni<>j then begin
     for i:=1 to m do begin
       t:=max
       a[j,i]:=a[ni,i];
       a[ni,i]:=t;
     end;
   end;
end;
 
end.