Транспонирование матрицы и "индекс находился вне границ массива"

Const k=10; {максимальная размерность матриц}
q=6; w=1;
Type Matr = array [1..k,1..k] of real ;
Var
  m, n, i, j: integer;                {порядок матриц}
  X, T1: Matr;                      {исх. матрицы и матрицы в рез. вычислений}
{Вывод элементов матрицы X}
Procedure MatrX(q, w: integer; Name: string; var X: Matr);
var i, j: integer;
  begin
    for i:=1 to q do begin
      for j:=1 to w do
      X[i,j]:=Random(5);
      write(X[i,j]:5);
      writeln;
   end;
 end;
{Транспонирование матрицы X^T = (T1)}
Procedure MatrT1 (q, w: integer; X:Matr; var T1: Matr);
Var
  i,j:integer;
  begin
    for j:=1 to q do begin
      for i:=1 to w do begin
      T1[j,i]:=X[i,j];
    end;
  end;
end;
{ОСНОВНАЯ ПРОГРАММА}
begin
 
  writeln('Матрица X');
MatrX(q, w, 'Матрица X = ', X); // I действие
  writeln(X[i,j]:5);
  readln;
  
  writeln('Транспонирование X^T = T1');
MatrT1(q, w, X, T1); // II действие (Транспонирование)
  writeln(T1[j,i]:5);
  readln;
end.

Const k=10; {максимальная размерность матриц}
q=6; w=1;
Type Matr = array [1..k,1..k] of real ;
{Вывод элементов матрицы X}
Procedure MatrX(q, w: integer; Name: string; var X: Matr);
var i, j: integer;
begin
for i:=1 to q do
 begin
  for j:=1 to w do
  X[i,j]:=Random(15);
  write(X[i,j]:5);
  writeln;
 end;
end;
{Транспонирование матрицы X^T = (T1)}
Procedure MatrT1 (q, w: integer; X:Matr; var T1: Matr);
Var i,j:integer;
begin
for i:=1 to q do
for j:=1 to w do
T1[j,i]:=X[i,j];
for i:=1 to w do
 begin
  for j:=1 to q do
  write(T1[i,j]:5);
  writeln;
 end; 
end;
{ОСНОВНАЯ ПРОГРАММА}
var X,T1:Matr;
begin
writeln('Матрица X');
MatrX(q, w, 'Матрица X = ', X); // I действие
writeln('Транспонирование X^T = T1');
MatrT1(q, w, X, T1); // II действие (Транспонирование)
 
end.