2_3 with procedures

program Project1;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

type
   DoubleArray = array of array of Integer;

procedure PrintMatrix(var Matrix : DoubleArray);
var
   i, j, LastIndex : Integer;
begin
   LastIndex := High(Matrix);
   for i := 0 to LastIndex do
   begin
      for j := 0 to LastIndex do
         Write(Matrix[i][j], ' ');
      Writeln('');
   end;
   writeln('');
end;

procedure TransposeMatrix(var Matrix : DoubleArray);
var i, j, LastIndex, Temp : Integer;
begin
   LastIndex := High(Matrix);
   Writeln('Transposed matrix);
   for i := 0 to LastIndex do
      for j := i to LastIndex do
      begin
         Temp := Matrix[i][j];
         Matrix[i][j] := Matrix[j][i];
         Matrix[j][i] := Temp;
      end;
end;

procedure Main();
var
   MyMatrix : DoubleArray;
   Input : String;
   N, i, j, LastIndex, Temp : Integer;

begin
   Writeln('This program can transpose the NxN matrix!');
   Writeln('Enter N (value from 1 to ', High(Integer), ')');
   Readln(Input);
   N := StrToInt(Input);

   SetLength(MyMatrix, N);
   LastIndex := N - 1;

   for i := 0 to LastIndex do
      SetLength(MyMatrix[i], N);

   Writeln('Enter matrix elements (with values from ', Low(Integer), ' to ', High(Integer), ')');

   for i := 0 to LastIndex do
      for j := 0 to LastIndex do
      begin
         Write('[', i, '][', j, '] = ');
         Readln(Input);
         MyMatrix[i][j] := StrToInt(Input);
      end;

   PrintMatrix(MyMatrix);
   TransposeMatrix(MyMatrix);
   PrintMatrix(MyMatrix);
   Readln;

end;

begin
   Main();
end.