spqrt

conheço os comandos mas não sei como usa-los no programa

program Matriz_Teste_Impressao; var i, j :integer; a :array[1..4, 1..4] of char; begin for i:= 1 to 4 do begin for j := 1 to 4 do begin a[i, j] := 'x'; write('a[', i, ',', j, ']==>', a[i, j]); end; end; //VOCÊ PRECISA AJUSTAR O TRECHO ABAIXO for i:= 1 to 4 do begin for j := 1 to 4 do begin write(' ', a[i,j], ' ') ; end; writeln; end; readln; writeln; for i:= 1 to 4 do begin for j := 1 to 4 do begin write(' ', a[j,i], ' ') ; end; writeln; end; readln; end. adicionado 1 minuto depois acho que agora sim imprimir a matriz original depois a transposta trocando o j e o i

adicionado 3 minutos depois eu program matriz; var i,j,m,n:integer; var a: array[1..4,1..4] of char; begin for i:= 1 to 4 do begin for j := 1 to 4 do begin write('a[',i,',',j,']==>'); read(a[i, j]); end; end; for i:= 1 to 4 do begin for j := 1 to 4 do begin writeln(' ',a[i,j]); end; writeln; end; readln; end. só consigo usar esses comandos para matriz

faça um programa em pascal para ler a matriz a (mostrada abaixo) de um arquivo chamado matriza.txt gravado no desktop, fazer as mudanças necessárias para transformá-la na matriz b (mostrada abaixo) e escrever a matriz a e a matriz b num arquivo chamado matrizb.txt a ser gravado no desktop Matriz A Matriz B c b v r c a s a a o e a b o l o s l l t v e l a a o a o r a t o