řazení sloupců matice – Delphi – Fórum – Programujte.com

Prosím o radu :) 

mám za úkol : Setřiďte sloupce vzestupně podle hodnot v prvním řádku a vytiskněte novou matici.

Můj výtvor bohužel dokáže řadit místo sloupců řádky, a nevím co pozměnit aby to fungovalo správně 

procedure setridRadky(Sender: TObject); {procedura setrid radky v matici podle nejvetsiho prvku v radku (pouzit algoritmus bubble sort}
var
  max, max2, helper: integer;
  done: boolean;
begin

  repeat    {opakuj dokud done=true}
    done:= true;
    for i:=1 to m-1 do  {prochazeni radku}   // j a n jsou sloupce
    begin
      max:= 0;
      max2:= 0;

      for j:=1 to n do  {projdeme kazdy prvek z radku i a i+ a urcime jejich max hodnotu (max, max1)}
      begin
        if a[i,j] > max then
          max:= a[i,j];

        if a[i+1,j] > max2 then
          max2:= a[i+1,j];
      end;  {na konci cyklu mame pozadovane maximalni hodnoty}

      if max > max2 then  {pokud je max > max2, tak prehodime radky (prehodime a[i,j] za a[i+1,j])}
      begin
        for j:=1 to n do
        begin
          helper:= a[i,j];
          a[i,j]:= a[i+1,j];
          a[i+1,j]:= helper;

          done:= false;
        end;
      end;
    end;
  until done; {konec repeat (pokracujeme dokud nemame setrizeno)}

   end;

.

.

.

procedure TForm1.razeniClick(Sender: TObject);      

begin
  setridRadky(Sender);  {Zavola proceduru setridRadky ktera setridi matici}
  vypisMatici(sg, a);   {Vypiseme setrizenou matici}
end;

Máš pozměnit indexy tak, aby se místo řádků procházely sloupce a místo sloupců řádky. Ale protože na rozdíl od požadovaného programu, kde se má třídit podle hodnot v prvním řádku, v tomto se programu třídí trochu jinak, jestli dobře vidím, tak se netřídí analogicky podle hodnot v prvním sloupci, ale hledá se maximum z celého řádku a třídí se to podle tohoto maxima. To znamená, že ta úprava nebude tak jednoduchá, jak sis asi myslela.

Doporučuju, abys neupravovala program, kterému zřejmě nerozumíš (přestože je docela dobře okomentovaný), ale aby sis to napsala sama..