перебрать все варианты перестановки строк

[sv_mix]

Привет))
Может кто-нибудь сможет мне помочь с задачей(у меня чтото никак не получается)..
Язык впринципе не имеет значения, но лучше на delphi..

Условия: дана матрица
Т[i,j]=( 5 4 0 0 8
0 10 0 4 7
0 3 13 14 11
4 3 4 0 0
8 0 0 12 0
6 0 8 24 14 )
для нее строится матрица X той же размерности по следующим правилам:
x[1,1]=t[1,1] (первый элемент)
x[1,j]=x[1,j-1]+t[1,j] (первая строка начиная со второго элемента)
x[i,1]=x[i-1,1]+t[i,1] (первый столбец начиная со второго элемента)
x[i,j]=max{x[i-1,j];x[i,j-1]}+t[i,j] (все остальные элементы)

И собственно сама задача:
Нужно перебрать все варианты перестановки строк(столбцы остаются неизменными) в исходной матрице Т и вывести на экран ту матрицу Т, для которой последний элемент матрицы Х будет минимален

From Stilet: Тему нужно называть так чтоб было понятно о чем речь идет. В следующий раз закрою.

[eoln]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  mat = array[1..6, 1..5] of integer;

const
  TT: mat = (
  (5, 4, 0, 0, 8),
  (0, 10, 0, 4, 7),
  (0, 3, 13, 14, 11),
  (4, 3, 4, 0, 0),
  (8, 0, 0, 12, 0),
  (6, 0, 8, 24, 14)
   );

var
  x, T, minT: mat;
  tmp: integer;
  i, j, k, min: integer;


function max(a, b: integer): integer;
begin
  if a > b then result := a else result := b;
end;

procedure ForMatrixX; //заполняем матрицу х по правилу
var
  i, j: integer;
begin
  x[1, 1] := T[1, 1];
  for i := 2 to 6 do
    x[i, 1] := x[i-1, 1] + T[i, 1];
  for j := 2 to 5 do
    x[1, j] := x[1, j-1] + T[1, j];
  for i := 2 to 6 do
  for j := 2 to 5 do
  x[i, j] := max(x[i-1, j], x[i, j-1]) + T[i,j];
end;

begin
  T := TT;
  ForMatrixX; //матрица х для исходной матрицы Т
  min := x[6, 5]; //запомним последний элемент
  minT := T; //предположим эта матрица искомая
  for i := 1 to 6-1 do  //перебираем все
  for j := i+1 to 6 do  //строки в матрице Т
  begin
    T := TT; //возврат к исходной матрице
    for k := 1 to 5 do //перестановка 2-х сторок
    begin
      tmp := T[j, k];
      T[j, k] := T[i, k];
      T[i, k] := tmp
    end;
    ForMatrixX; //строим новую матрицу х для новой Т
    if x[6, 5] < min then //если в ней посл эл меньше то запомним
    begin
      minT := T; //и искомую матрицу
      min := x[6, 5] //этот элемент
    end;
  end;

  for i := 1 to 6 do //вывод на экран
  begin
    for j := 1 to 5 do write(minT[i, j]:4);
    writeln
  end;
  readln
end.

[Roof]

Посмотри мой исходник. Я там по действиям вроде все разложил.
Только вот с минимальным элементом вопрос - тебе надо, чтобы на месте последнего элемента стояла 21 или 5 (смотри программу в работе) все-таки?