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

program ff;
 
const n=100;
type matrica=array[1..n,1..n] of integer;
var i,j:integer;
w:integer;
a:matrica;
 
procedure OutMatrix; { Вывод матрицы }
var i,j:byte;
begin
writeln;
for j:=1 to w do
begin
for i:=1 to w do write(a[i,j]:5);
writeln;
end;
end;
 
procedure SortFirstStolb; { <<- Кривая процедура сортировки 1 столбца }
var b,i,j,tmp:integer;
begin
b:=1;
while b<25 do begin
for i:=w downto 2 do
if a[i,1]>a[i-1,j] then
begin
tmp:=a[i-1,j];
a[i-1,j]:=a[i,1];
a[i,1]:=tmp;
end;
b:=b+1;
end;
 
begin
Writeln('Vvedite razmernost kvadratnoy matrici: ');
Readln(w); writeln;
Writeln('Vvedite elementi kvadratnoy matrici: ');
 
 
for i:=1 to w do { Вводим матрицу }
for j:=1 to w do
begin
readln(a[j,i]);
end;
writeln;
Writeln('Vvedennaya matrica: ');
OutMatrix;
for i:=1 to w do
for j:=i+1 to w do
if a[i,j]<>a[j,i] then
begin
a[i,j]:=a[i,j] xor a[j,i];
a[j,i]:=a[i,j] xor a[j,i];
a[i,j]:=a[i,j] xor a[j,i]; Writeln;
end;
Writeln('Transponirovka matrici: ');
OutMatrix;
 
writeln('Transponirovka matrici s uporyadochennim pervim stolbcom po ubivayushey: ');
SortFirstStolb;
OutMatrix;
Readln;
end;
end;
end.