Перестановка столбцов в матрице

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  //Тип массива.
  TArrData = array[1..5, 1..6] of Extended;
  //Тип, задающий указатель на массив.
  TPArrData = ^TArrData;
 
var
  Form1: TForm1;
 
  //Массив.
  ArrData : TArrData;
 
implementation
 
{$R *.dfm}
 
//Процедура меняет местами столбцы в массиве, на который ссылается указатель aPArrData.
procedure ExchangeCol(aPArrData : TPArrData; Ind1, Ind2 : Integer);
var
  i : Integer;
  TmpVal : Extended;
begin
  for i := 1 to 5 do begin
    TmpVal := aPArrData^[i, Ind1];
    aPArrData^[i, Ind1] := aPArrData^[i, Ind2];
    aPArrData^[i, Ind2] := TmpVal;
  end;
end;
 
//Заполняет массив произвольными значениями.
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j   : Integer;
  StrTmp : String;
begin
 
  Memo1.Clear;
  Memo2.Clear;
 
  //Заполняем матрицу произвольными значениями.
 
  //Инициализация генератора случайных чисел.
  Randomize;
 
  for i := 1 to 5 do begin
    for j := 1 to 6 do begin
      ArrData[i, j] := Random(i * 10) + 1 + Random(j) + 1;
    end;
  end;
 
  //Показываем матрицу на экране.
 
  for i := 1 to 5 do begin
    StrTmp := '';
    for j := 1 to 6 do begin
      if StrTmp <> '' then begin
        StrTmp := StrTmp + '; '
      end;
      StrTmp := StrTmp + FloatToStr(ArrData[i, j]);
    end;
    Memo1.Lines.Add(StrTmp);
  end;
 
end;
 
//Сортировка массива.
procedure TForm1.Button2Click(Sender: TObject);
var
  i, j, IndMin   : Integer;
  ValMin         : Extended;
  StrTmp         : String;
begin
 
  //Сортируем матрицу по столбцам по убыванию значений в первой строке.
  //Сортировку выполняем методом перестановки минимального.
 
  for i := 1 to 6 - 1 do begin
    ValMin := ArrData[1, i];
    IndMin := i;
    for j := i + 1 to 6 do begin
      if Abs(ArrData[1, j]) < ValMin then begin
        ValMin := Abs(ArrData[1, j]);
        IndMin := j;
      end;
    end;
    if IndMin <> i then begin
      //Переставляем столбцы матрицы.
      ExchangeCol(@(ArrData[1, 1]), i, IndMin);
    end;
  end;
 
  //Показываем мартицу с отсортированными столбцами.
 
  Memo2.Clear;
 
  for i := 1 to 5 do begin
    StrTmp := '';
    for j := 1 to 6 do begin
      if StrTmp <> '' then begin
        StrTmp := StrTmp + '; '
      end;
      StrTmp := StrTmp + FloatToStr(ArrData[i, j]);
    end;
    Memo2.Lines.Add(StrTmp);
  end;
 
end;
 
end.