Опять матрица :(, Как заполнить в нужном порядке? Опции

[ksv]

Хелп
дана матрица 8х8:real, заполнить случайными числами не сложно, но нужно заполнить в определенном порядке:
... 17
9 10...15 16
8 7... 2 1
т.е. змейкой, как сделать подскажите плз.

[volvo]

Вот так:

const n = 8;
var
  a: array[1 .. n, 1 .. n] of real;
  add: array[false .. true] of integer = (-1, 1);
  i, j, k, count: integer;

begin
  j := n + 1; count := 1;
  for i := n downto i do begin
    inc(j, add[odd(i)]);
    for k := 1 to n do begin
      a[i, j] := count; inc(count);
      inc(j, add[odd(i)]);
    end;
  end;

  for i := 1 to n do begin
    for j := 1 to n do
      write(a[i, j]:4:0);
    writeln;
  end;
  readln;
end.

[ksv]

может быть попроще можно сделать, сортировкой там какой нибудь?
(на всякий случай задание такое:
матрица 8х8 нужно заполнить случайными числами от -7 до 7 в следующем порядке- первая строка слева на право по убыванию , вторая строка справа налево по убыванию, третья слева на право по убыванию и т.д.. т.е в ячейке A[1,1] находится максимум в A[8,8] минимум матрицы, затем мтрицу отсортировать по убыванию сумм по строкам.
Не понятен мне сам алгоритм заполнения , сначала нужно максимум найти? вроде бы напрашивается сортировка пузырьковая? как отсортировать матрицу пузырьковой сортировкой, везде в примерах сортировка массива и усё