Трансплонировать матрицу на паскале

[wolking]

Сижу на лабе, времени в обрез, помогите посоны.
Вот код, нужно трансплонировать матрицу на выходе:

program Project1_4;
{$APPTYPE CONSOLE}

uses
SysUtils;

var a:array[1..100,1..100] of integer;
i,j,n,max,min,k1,k2,k3,k4:integer;
begin
writeln(' Enter the order of the matrix');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
writeln('A[',i,',',j,']=');
readln(a[i,j]);
end;
min:=a[1,1];
max:=a[1,1];
writeln;
writeln('Matrix');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
writeln(a[i,j]:3);
if a[i,j]<min then
begin
min:=a[i,j];

k1:=i;
k2:=j;
end;
if a[i,j]>max then
begin
max:=a[i,j];

k3:=i;
k4:=j;
end;
end;

writeln;
end;
writeln;
writeln('min:a[',k1,',',k2,']=',min);
writeln('max:a[',k3,',',k4,']=',max);
readln;
end.

[NinaSSS]

...for i:=1 to n do      {Просмотр всех строк матрицы}
for j:=i+1 to n do   {Просмотр всех элементов в строке, расположенных выше главной диагонали}
 begin
  k:=a[i,j];
  a[i,j]:= a[j,i];
  a[j,i]:= k;
 end;...