Транспонирование матрицы

uses crt;
var s:string;
    i,n:integer;
begin
write ('Vvedite dlinu stroki ');
readln (n);
writeln ('Vvedite stroku');
for i:=1 to n do
  read (s[i]);
for i:=1 to n do
  if s[i] = ' ' then
    s[i]:= '_';
for i:=1 to n do
 write (s[i]);
readln;
end.

uses crt;
var s:string;
    i:integer;
begin
clrscr;
writeln ('Vvedite stroku');
readln (s);
for i:=1 to length(s) do
if s[i] = ' ' then  s[i]:= '_';
write(s);
readln
end.

uses crt;
const n=10;
var a:array[1..n,1..n] of real;
    i,j:byte;
begin
clrscr;
writeln('Единичная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j=i then a[i,j]:=1
    else a[i,j]:=0;
    write(a[i,j]:5:1);
   end;
  writeln;
 end;
readln
end.

uses crt;
var TArr:array [1..10,1..10] of real;
    i,j:integer;
begin
for i:=1 to 10 do
  TArr[i,i]:= 1;
for i:=1 to 10 do
  begin
    for j:=1 to 10 do
    write (TArr[i,j]:1:0,' ');
    writeln;
  end;
readln;
end.

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j:byte;
    x:integer;
begin
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*i+j;
    write(a[i,j]:4);
   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;
writeln('Транспонированная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.