Заменить в матрице строки столбцами

const
  n=5;
var
  a: array[1..n,1..n] of integer;
  i,j,k: byte;
  t: integer;
begin
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      inc(k);
      a[i,j]:=k; //заполнение по порядку для наглядности
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  for i:=2 to n do
    for j:=1 to i-1 do
    begin
      t:=a[i,j];
      a[i,j]:=a[j,i];
      a[j,i]:=t;
    end; 
    
  writeln('Преобразованная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.

const n=5;
var
  a : array[1..n,1..n] of byte;
  i,j,t : Byte;
Begin
  writeln('Ishodnaq :');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=i*10+j;
      write(a[i,j]:4);
    end;
    writeln;
  end;
 
  for i:=1 to n do
  for j:=1 to i do begin
    t:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=t;
  end;
 
  writeln('Resultat:');
  for i:=1 to n do begin
     for j:=1 to n do write(a[i,j]:4);
     writeln;
  end;
  readln;
End.