Дана квадратная матрица NxN. Зеркально отразить элементы матрицы относительно главной диагонали -Pascal(Паскаль)

uses crt;
var
mas:array[1..100,1..100]of integer;
i,j,tmp,n:integer;
 
 
 
begin
    writeln ('введите размерность квадратной матрицы');  {Вводим матрицу}
        read(n);
    
    writeln('Введите матрицу');
        for i:=1 to n do 
            for j:=1 to n do
        read(mas[i,j]);
 
for i:=1 to n do                    {Выводим матрицу}
    begin
    for j:=1 to n do write(mas[i,j]:4);
    writeln;
    end;
 
{меняем местами элементы}
for i:=1 to (n-1) do
for j:=i+1 to n do
    begin
    tmp:=mas[i,j];
    mas[i,j]:=mas[j,i];
    mas[j,i]:=tmp;
    end;
writeln;
for i:=1 to n do                    {Выводим получившуюся матрицу}
    begin
    for j:=1 to n do write(mas[i,j]:4);
    writeln;
    end;
{жмешь любую кнопку и все}
readkey;
end.