поменять строки местами в матрице - Delphi - Ответ 1571353

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, XPMan;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label4: TLabel;
    Button2: TButton;
    XPManifest1: TXPManifest;
    StringGrid2: TStringGrid;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  A:array[1..100,1..100] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
StringGrid1.RowCount:=strtoint(Edit1.Text);
StringGrid1.ColCount:=strtoint(Edit2.Text);
StringGrid2.RowCount:=strtoint(Edit1.Text);
StringGrid2.ColCount:=strtoint(Edit2.Text);
 
for x:=0 to  strtoint(Edit1.Text)do
 for y:=0 to  strtoint(Edit2.Text)do
     StringGrid1.Cells[y,x]:=inttostr(0);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,M,N, min, minN,W:integer;
begin
M:=strtoint (Edit1.Text);
N:= strtoint(Edit2.Text);
 
for i:=0 to m  do
  for j:=0 to n do
  A[j+1,i+1]:=StrToint(StringGrid1.Cells[j,i]);
 
min:=A[1,1];
minN:=0;
 for i:=1 to m  do
  for j:=1 to n do
  if  A[j,i] > min then
  begin
  minN:=i;
  min:=A[j,i];
  end;
  label5.Caption:='Максимальный элемент равен ' + inttostr(min) + ' в строке '+ inttostr(minN);
  for j:=1 to m+1  do
  begin
  W:=A[j,1];
  A[j,1]:=A[j,minN];
  A[j,minN]:=W;
  end;
for i:=0 to  strtoint (Edit1.Text) do
  for j:=0 to strtoint(Edit2.Text) do
  StringGrid2.Cells[j,i]:= inttostr(A[j+1,i+1]);
end;
end.