Вариант 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.