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

А, блин! Надо же с клавы вводить. Сейчас переделаю

var    a: array[,] of integer;    i,j, t,n,m,k: integer;beginwrite('Введите размерность матрицы 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.