Здравствуйте, Ericsson!
[code lang=pascal]const m=10;
n=8;
var f:array[1..m,1..m]of integer;
i,j,x:integer;
begin
writeln('Исходная матрица');
for i:=1 to m do
begin
for j:=1 to n do
begin
f[i,j]:=10+random(90);
write(f[i,j]:3);
end;
writeln;
end;
for i:=1 to n do
for j:=i to m do
begin
x:=f[i,j];
f[i,j]:=f[j,i];
f[j,i]:=x;
end;
writeln('Транспонированная матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(f[i,j]:3);
writeln;
end;
writeln('Элементы главой диагонали');
for i:=1 to n do
write(f[i,i]:3);
writeln;
writeln('Элементы диагонали под главной');
for i:=2 to n do
write(f[i,i-1]:3);
end.[/code]

Здравствуйте, Ericsson!
Доброго времени суток....
Ну или так...