матрица из одномерного массива

[hunter03]

Помогите, никак не получается решить задачу
Есть одномерный масив X, из n элементов. Получить квадратную матрицу вида

х1 х2 ... хn
xn x1 ... xn-1
.................
x2 x3 ... x1

Как его подстроить? никак не получается
n:=5;
for i:=1 to n do begin
for j:=1 to n do begin
mas[i,j]:=a[i];
end; end;

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

for i:=1 to n do begin
for j:=1 to n do begin
stringgrid1.Cells[i,j]:=inttostr(mas[i,j]);
end; end;

[mihali4]

Слушаемся и повинуемся, о повелитель !
Разрешите приступить ?
Оп-па... Рабы кончились...
Придется прочесть правила раздела !