2мерные массивы

[Gevorg7]

Помогите пожалуйста доделать))))
Квадратный массив С(m,n) перобразовать в массив D(m,n) в котором элементы из массива поменяются местами симметрично относително главной диагонали .

var D,a:array[1..10,1..10] of integer;
o,j,i,m,n,e:integer;
begin
clrscr;
write ('Кол-во строк '); read (m);
write ('кол-во столбцов'); read (n);
for i:=1 to m do
for j:=1 to n do
begin
gotoxy (1,3); write ('Введите a[',i,',',j,']'); read (a[i,j]);
gotoxy (e+5*j,4+i); write (a[i,j]);
e:=5*e;
if j=n then e:=0;
end;
for i:=1 to m do
for j:=1 to n do
begin
D[i,j]:=a[i,j];
gotoxy(e+j,14+i);
gotoxy (1,8); write('Массив D :');
gotoxy (e+j,9+i); write (D[i,j]);
e:=e+6;
if j=n then e:=0
end;
readkey;
end.

[Shift_sk]

for i:=n downto 1 do
for j:=1 to n do
d[j,i]:=a[i,j]

думаю так