pascal(сортировка)

[s4egol]

так, у меня есть задача:
дана РАНДОМНАЯ матрица[9,10], нужно упорядочить элементы столбцов по возрастанию а сами столбцы по возрастанию произведения чётных элементов столбцов.
я не могу додуматься как упорядочить столбцы по возрастанию произведения чётных элементов столбцов. помагите пожалуйста.
вот код который у меня есть на данный момент:

uses
    crt;
var
   matrix: array [1..9,1..10] of integer;
   i,j,k,p:integer;
begin
    randomize;
    write('исходная матрица:');
    writeln;
    for i:= 1 to 9 do
    begin
       for j:= 1 to 10 do
       begin
          matrix[i,j]:=random(10);
          write(matrix[i,j],' ');
       end;
      writeln(' ');
    end;
    write('Отсартированная матрица:');
    writeln;
    for j:= 1 to 10 do
     for i:= 1 to 9 do
       for k:= 1 to 9-i do
          if matrix[k,j] > matrix[k+1,j] then
          begin
             p:=matrix[k,j];
             matrix[k,j]:=matrix[k+1,j];
             matrix[k+1,j]:=p;
          end;
      for i:= 1 to 9 do
      begin
         for j:= 1 to 10 do
            write(matrix[i,j],' ');
            writeln(' ');
      end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[s4egol]

что, тут нету людей который бы мне могли помоч в этом?

[Utkin]

Есть такие понятия как функции и процедуры. Рекомендую изучить. И еще, я бы не стал ворочить столбцы. Это глупо и не удобно. Я бы завел еще один массивчик, который определял порядок столбцов для вывода.