Помогите с информатикой,пожалуйстапожалуйста дана действительная квадратная матрица порядка n Преобразовать матрицу по правилу : строку с номером n сделать столбцом с номером n, а столбец с номером n cделать строкой с номером n

var matrix1:array [,] of real; n:integer; tmp:real; begin   write('Введи размерность матрицы:');   readln(n);   matrix1:=new real[n,n];   for var i:=0 to n-1 do  begin     for var j:=0 to n-1 do     begin       matrix1[i,j]:=Random(100);       write(matrix1[i,j]:4);     end;     writeln;   end;   writeln('Поменяли:');   for var j:=0 to n-1 do   begin       tmp:=matrix1[j,n-1];       matrix1[j,n-1]:=matrix1[n-1,j];       matrix1[n-1,j]:=tmp;   end;   for var i:=0 to n-1 do begin        for var j:=0 to n-1 do             write(matrix1[i,j]:4);        writeln;   end;  end.