Матрицы, задачка на Паскале Опции

[Kos]

Народ, помогите плиз, надо решить задачку, а в матрицах я нуб (во всяком случае на Паскале).
Даны действительные числа а1, ..,а64;
Получить действительную квалратную матрицу порядка 8, элементами которой являются числа а1,...а64, расположенные по схеме:

[volvo]

const
  n = 8;
var
  a: array[1 .. n, 1 .. n] of integer;
  i, j, k, T, count: integer;
begin
  T := 1;
  count := 1;
  for i := 1 to n do begin
    T := - T;
    if odd(i) then j := n else j := 1;
    for k := 1 to n do begin
      a[i, j] := count;
      inc(count); j := j + T;
    end;
  end;

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

end.