В чём ошибка? Задача на object pascal

[FLASH_MAN]

Всем доброго времени суток. Суть задачи - заполнить целочисленный массив (размерность задаётся пользователем) целыми числами от 1 против часовой стрелки ( далее каждое число на 1 больше) и вывести результат на экран.
Вот мой код:

Var n:integer;
  a:array of integer;


  procedure massiv(n:integer);
  Var
    d,i,j:integer;
  begin
   d:=1;
for j:=1 to n do
begin

for i:=j to n+1-j do
  begin a[n+1-j,i]:=d; d:=d+1; end;

d:=d+1;

for i:=j+1 to n-j do
  begin a[n-i+1,n+1-j]:=d; d:=d+1; end;

d:=d+1;

for i:=n-j downto j do
begin a[j,i]:=d; d:=d+1; end;

d:=d+1;

for i:=j+1 to n-j do
  begin a[i,j]:=d; d:=d+1; end;

d:=d+1;

end;

for i:=1 to n do
   begin
   for j:=1 to n do
    begin Write(a[i,j],' ') end;
    Writeln;
   end;

end;

begin
  Writeln('Vvedite razmernost massiva');
  Readln(n);
  SetLength(a,n);
  massiv(n);
  Readln;
end.

Компилятор пишет Error: Illegal qualifier
на все строки, где я обращаюсь к массиву.

Вопрос: что не нравится компилятору?

P.S. Заранее спасибо

[p51x]

Вы описали одномерный масив, а обращаетесь с ним как с двумерным.

[FLASH_MAN]

О, спасибо.