Поменять местами столбцы, содержащие наибольший и наименьший элементы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Unit2;
 
type
  TForm1 = class(TForm)
    GroupBox2: TGroupBox;
    ListBox3: TListBox;
    Button2: TButton;
    ListBox4: TListBox;
    Button3: TButton;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure sort1337();
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a: array [1..3, 1..5] of String[5];
  tmp1, tmp2, tmp3, tmp4, tmp5: array[1..3] of string;
  Sorteda: array [1..3, 1..5] of String[5];
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a[1, 1]:=Edit1.Text;
a[1, 2]:=Edit2.Text;
a[1, 3]:=Edit3.Text;
a[1, 4]:=Edit4.Text;
a[1, 5]:=Edit5.Text;
a[2, 1]:=Edit6.Text;
a[2, 2]:=Edit7.Text;
a[2, 3]:=Edit8.Text;
a[2, 4]:=Edit9.Text;
a[2, 5]:=Edit10.Text;
a[3, 1]:=Edit11.Text;
a[3, 2]:=Edit12.Text;
a[3, 3]:=Edit13.Text;
a[3, 4]:=Edit14.Text;
a[3, 5]:=Edit15.Text;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
i, j: integer;
s, t: string;
begin
ListBox3.Clear;
 
t:= '';
for i:= 1 to 3 do
begin
  for j:= 1 to 5 do
  begin
    s:=a[i, j];
    t:=t+s+#9;
  end;
  ListBox3.Items.Add(t);
  t:= '';
end;
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
i, j: integer;
s, t: string;
begin
ListBox4.Clear;
sort1337();
 
t:= '';
for i:= 1 to 6 do
begin
  for j:= 1 to 4 do
  begin
    s:=sorteda[i, j];
    t:=t+s+#9;
  end;
  ListBox4.Items.Add(t);
  t:= '';
end;
end;

var a: array [1..3, 1..5] of integer;
    Temp: array [1..5] of integer;
    i: integer;
begin
//Допустим надо поменять местами 2 и 3-й столбцы
  for i:=1 to 5 do begin
    Temp[i]:= a[i, 2];
    a[i, 2]:=a[i, 3];
    a[i, 3]:= Temp[i];
  end;

//Допустим надо поменять местами 2 и 3-й столбцы
  for i:=1 to 5 do begin
    a[i, 2]:= a[i, 2] + a[i,3];
    a[i, 3]:= a[i, 2] - a[i,3];
    a[i, 2]:= a[i, 2] - a[i,3];
  end;