Напишите программу для транспонирования квадратной матрицы - Pascal ABC

Формулировка задачи:

Напишите программу для транспонирования* квадратной матрицы 5*5. Все элементы на главной диагонали матрицы заполните нулями, нижняя и верхняя части заполняются случайным образом числами из диапазона от 1 до 9. Сделайте контрольный вывод исходной матрицы, а затем транспонированной. Транспонирование матрицы – это операция, при которой элементы матрицы отражаются симметрично относительно главной диагонали, при этом элементы меняются местами

Решение задачи: «Напишите программу для транспонирования квадратной матрицы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
const n=5;
var a:array[1..n,1..n] of byte;
    i,j,x:byte;
begin
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i=j then a[i,j]:=0
    else a[i,j]:=1+random(9);
    write(a[i,j]:2);
   end;
  writeln;
 end;
for i:=2 to n do
for j:=1 to i-1 do
 begin
  x:=a[i,j];
  a[i,j]:=a[j,i];
  a[j,i]:=x;
 end;
writeln('Транспонированная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:2);
  writeln;
 end;
end.