Sorter Multidimensional dynamic arrays

Du sorterer efter den kolonne og det eneste du skal gøre er at bytte om
på den andre kolonner tilsvarende.

Kode eksempel:

program MultiDimSort;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  mda = array of array of integer;

procedure init(var a : mda; n, m : integer);

var
  i, j : integer;

begin
  randomize;
  setlength(a, n);
  for i := low(a) to high(a) do begin
      setlength(a[i], m);
      for j := low(a[i]) to high(a[i]) do begin
        a[i,j] := random(100);
      end;
  end;
end;

procedure print(var a : mda);

var
  i, j : integer;

begin
  for i := low(a) to high(a) do begin
      for j := low(a[i]) to high(a[i]) do begin
        write(' ', a[i,j]);
      end;
      writeln;
  end;
end;

procedure sort(var a : mda);

var
  i, j, k, tmp : integer;

begin
  for i := low(a) to (high(a) - 1) do begin
      for j := (i + 1) to high(a) do begin
        if a[i,3] > a[j,3] then begin
            for k := low(a[i]) to high(a[i]) do begin
              tmp := a[i,k];
              a[i,k] := a[j,k];
              a[j,k] := tmp;
            end;
        end;
      end;
  end;
end;

var
  a : mda;

begin
  init(a, 10, 5);
  writeln('before');
  print(a);
  sort(a);
  writeln('after');
  print(a);
end.

Mange tak for hjælpen.

Det virker bare.

Stoney