Выстроить матрицу B , поменяв местами строчки и столбцы в Паскале

Это величается транспонированием

ну мне как то необходимо показать это в программке...

Ваше задание называется так: "Транспонировать матрицу в Паскале"

Спасибо, на данный момент буду разбираться

Var a,b:array[1..3,1..3] of integer;
i,j:integer;
begin;
randomize;
writeln('First matrix');
for i:=1 to 3 do
 begin;
  writeln;
   for j:=1 to 3 do
    begin;
     a[i,j]:=random(9);
     write(a[i,j]:4);
     b[j,i]:=a[i,j];
    end;
 end;
writeln;
writeln('Final matrix');
for i:=1 to 3 do
 begin;
  writeln;
   for j:=1 to 3 do
    write(b[i,j]:4);
 end;
end.