Сортировка массива (Pascal)

[Kion]

Нужно произвести сортировку массива, состоящего из 16 элементов (заполняется случайными числами), - по убыванию.
Сортировка должна производится методом, который показан на рисунке:



Тоесть в правой верхней ячейке будет первый элемент (самый маленький), а в левом нижнем - последний (самый большой);
Советуется использовать одномерный массив.

если элементы сортировать по порядку по типу:
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16

то можно сортировать по убыванию следующим способом:

const n = 16;
var data:array[1..n] of integer;
	tag,tagz,postuses:integer;
begin
randomize;
 for tag:=1 to n do 
  data[tag]:= random(99);
writeln('initial array:  ');
 for tag:=1 to n do Write(data[tag],' ');

 for tag:=1 to n-1 do 
  for tagz:=tag+1 to n do
   if data[tag] < data[tagz] then begin
					 	postuses:= data[tag]; 
				 	data[tag]:= data[tagz]; 
			 	data[tagz]:= postuses;
		   		 	end;
writeln;
writeln('final array:  ');
 for tag:=1 to n do write(data[tag],' ');
readln;
end.

но как автоматизировать сортировку массива по указанному пути? возможно существует какая-нибудь закономерность.
если вдруг у кого-нибудь появятся идеи, любые, я буду очень рад услышать. Заранее Спасибо.

[Alex Cones]

Очень простая закономерность: ДИАГОНАЛИ. A[X,Y] A[X+1,Y+1] и пр.

[Kion]

спасибо. а как потом сравнивать значения из одной диагонали со значениями из другой? и получается нужно использовать двумерный массив?

[Alex Cones]

Да, можно использовать 2-х мерный, но и одномерный можно сделать: Y:=ALL Div 4
X:=ALL Mod 4

[Kion]

большое спасибо! что-то начинает в голове проясняться, буду пытаться дальше...

а потом эти координаты складывать? (если с одномерным массивом)

блин, ничего не выходит(((