Трёхмерный массив! HELP!, Сортировка по возрастанию (я это даже предствить не могу) Опции

[klik1602]

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

[klik1602]

uses
 crt;
var
 n,m,k,i,j,t:integer;
 a:array[1..10,1..10,1..10] of integer;
procedure swap(var x,y,z:integer);
   var t,q:integer;
 begin
    t := x;
    x := y;
    y := z;
    z := t;
 end;
begin
 clrscr;
 writeln ('vvod poryadok matrica n');
 readln (n);
 m:=n; k:=n; 
 randomize;
   for i := 1 to n do
   for j := 1 to m do
   for t := 1 to k do
   a[i, j, t] := Random(10);
      for i := 1 to n do
      begin
      for j := 1 to m do
      begin
      for t := 1 to k do
      write(a[i,j,t]);
      writeln;
      end;
      end;
   for k:=1 to n-1 do
   for j:=1 to n-k do
   for i:=1 to n-j do
   begin
   if (a[i,j,k] > a[i+1,j,k]) and (a[i,j,k] > a[i+2,j,k])  then
   swap(a[i,j,k],a[i+1,j,k],a[i+2,j,k]);
   end;
     for i := 1 to n do
     begin
     for j := 1 to m do
     begin
     for t := 1 to k do
     write(a[i,j,t]);
     writeln;
     end;
     end;
end. 

что-то не то((
подскажите, как лучше вывести трёхмерный массив