Транспонетную матрицу написать через массив так,чтобы использовалась одна матрица

[Novenkaja]

Надо выбрать транспонетную матрицу и написать так,используя только одну матрицу.

[Vago]

Кого "выбрать"?.. Куда "выбрать"?.. "Транспонентная" матрица - нет в русском языке такого слова... Похоже на какой-то беспомощный перевод с одного неродного языка на другой, тоже неродной... Транспонировать матрицу, не используя вспомогательную матрицу? Так, что-ли?...

[Novenkaja]

Я не могу сказть это слово по русски,т.к.всегда его использую на латышском языке

ну что-то того

program md_6; {2.uzd}
uses crt;
type mas=array[1..10,1..10] of integer;
var i,j:integer;
    a:mas;
    buf:integer;
    m:integer;
begin
clrscr;
write('ievadiet masiva izmeru: ');
readln(m,???);             
for i:=1 to m-1 
     for j:=i+1 to m do
          Begin
               buf:=a[i,j];
               a[i,j]:=a[j,i];
               a[j,i]:=buf
          end;
          writeln(buf,a[i,j],a[j,i]);
readln;
end.

как его доделать,чтобы всё было в ране?
он компилирует но из рана выкидывает

{readln(m,n) for i:=1 to n} -если так писать,то сила вводяься 3 колонки 2 строки,а потом вылетает