заполнение матрицы в паскале

[evilguy]

помогите пожалуйста как заполнить симетричную матрицу 5*5 из однодименсионного массива заполненного рандом числами, уже долго ломаю голову, если был бы двухдименсионный я бы врубил а так, даже незнаю с какой стороны подойти

[pomoshnic]

Я плохо понял задание, но дмаю что так:

var a:array [1..5,1..5] of integer;
b:array [1..25] of integer;
i,j,c:integer;
begin
randomize;
for c:=1 to 25 do
begin
b[c]:=random(100)-50;
write(b[c],' ');
end;
writeln;
writeln('\\\\\\\\\\\\\');
c:=1;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
a[i,j]:=b[c];
inc(c);{c:=c+1}
write(a[i,j]:4);
end;
writeln;
end;
readln
end.

[evilguy]

вот что-то похожее я сам писал а надо что бы с однодименсионным массивом вывести числа в симетричном порядке
1 2 4 7
2 3 5 8
4 5 6 9
7 8 9 10

вот на подобие этого...