Двумерный массив(матрица)

program Project1;
 
const
  maxelem = 20;
type
  TMatrint = array[1..maxelem,1..maxelem] of integer;
 
 
procedure InfInMatr(var arr: TMatrint; var nn: integer);
{Процедура для ввода информации в массив}
var
  i,j: integer;
begin
  write('Введите значение размерности матрицы (не более ',maxelem,'): ');
  repeat
    Readln(nn);
    if (nn < 1) or (nn > maxelem) then
      writeln('Ошибка ввода! Повторите попытку.')
  until (nn > 0) and (nn < maxelem );
  for i:= 1 to nn do
    for j:= 1 to nn do
    begin
      write('Введите значение элемента [',i,',',j,']: ');
      Read(arr[i,j]);     { Ввод значений в двумерный массив.}
    end;
  Readln;
end;
 
 
 
procedure InfOutMatr(arr: TMatrint; nn: integer);
{Процедура для вывода двумерного массива в консоль}
var
  i,j: integer;
begin
  for i:= 1 to nn do
    begin
      for j:= 1 to nn do
        write(' ',arr[i,j]:5);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
end;
 
 
procedure MinSumDiagonalMatr(arr: TMatrint; nn: integer; var min: integer);
{Процедура находит минимальное значение среди сумм модулей элементов диагоналей,
 параллельных побочной диагонали матрицы. }
var
  i,j: integer;
  m: integer;
  sum: integer;
begin
  m:= abs(arr[1,1]);   {нахождение минимума среди диагоналей выше побочной}
  for i:= 1 to nn-1 do
    begin
      sum:= 0;
      for j:= 1 to nn-i do
        sum:= sum + abs(arr[nn-j+1-i,j]); {вычисление суммы модулей элементов}
      if sum < m then    {нахождение значение минимальной суммы}
        m:= sum;
     end;
  for i:= 2 to nn do       {нахождение минимума среди диагоналей ниже побочной}
    begin
      sum:= 0;
      for j:= i to nn do
        sum:= sum + abs(arr[nn-j+i,j]);  {вычисление суммы модулей элементов}
      if sum < m then     {нахождение значение минимальной суммы}
        m:= sum;
    end;
    min:= m;
end;
 
 
 
 
var
  a: TMatrint; { Переменная для хранения двумерного массива}
  n: integer;  { Переменные для хранения значений количества строк и столбцов}
  j: integer;    { Вспомогательная переменная для организации цикла}
  minimum: integer; { Промежуточная переменная для хранения значения минимума сумм}
begin
  InfInMatr(a,n);
  writeln('Исходный массив:');
  InfOutMatr(a,n);
  MinSumDiagonalMatr(a,n,minimum);
  writeln('Минимальное значение модулей элементов диагоналей' + #13#10 +
          'параллельных побочной диагонали матрицы: ', minimum);
  readln;
end.