Вариант 1. Задана матрица вещественных чисел размерности m×n. Не используя вспомогательного массива, транспонировать данную матрицу. Размерность матрицы и значения ее элементов ввести с клавиатуры.

Var
    a: array[,] of integer;
    i,j, t,n,m,k: integer;
begin
write(Введите размерность матрицы m и n: ); 
readln(m,n);
if n>m then k:=n else k:=m;
setlength(a,k+1,k+1);     
writeln (Вводите элементы матрицы по одному: );   
for i := 1 to m do
   for j:=1 to n do
      readln(a[i,j]);
for i:=1 to k do
  for j:=i to k do
    begin
    t:=a[i,j];
    a[i,j]:=a[j,i];
    a[j,i]:=t;
    end;
writeln; 
writeln (Транспонированная матрица: );    
for i := 1 to n do
       begin
       for j:=1 to m do
         write (a[i,j]:4);
       writeln;
       end;
end.