Транспонирование квадратной матрицы — Pascal(Паскаль)

Program Pro_38 (Input, Output);
Var 
X, Y: Array [1..20, 1..20] Of Integer; 
N : Integer;
i, j: Integer;
 
Begin
 
WriteLn ('PASCAL: Транспонирование квадратной матрицы.'); 
Write ('Введите размерность матрицы: ');
ReadLn (N); 
 
WriteLn ('Введите поочередно элементы таблицы:'); 
For i := 1 To N Do
For j := 1 To N Do
Begin
Write ('X[', i, ',', j, '] = ');
ReadLn (X [i, j] );
End;
 
WriteLn;
For i := 1 To N Do
Begin
For j := 1 To N Do
Write (X [i, j] : 5);
WriteLn;
End;
 
For i := 1 To N Do
For j := 1 To N Do
Y [i, j] := X [j, i]; 
 
WriteLn;
WriteLn('Полученная матрица:'); 
For i := 1 To N Do
Begin
For j := 1 To N Do
Write (Y [i, j] : 5);
WriteLn;
End;
 
ReadLn;
End.