Двумерные массивы в паскаль

program Project1;
 
uses
  CRT;
const
  maxrow = 20;
  maxcol = 20;
 
type
  TArr2int = array [1..maxrow,1..maxcol] of integer;
 
procedure InfInArr(var arr: TArr2int; var nn,mm: integer);
{Процедура для ввода пользователем информации в двумерный массив}
var
  i,j: integer;
begin
  write('Введите значение количества строк в двумерном массиве (не более ',maxrow,'): ');
  repeat
    Readln(nn);                         { Ввод значения количества строк}
    if (nn < 1) or (nn > maxrow) then   { Условие для проверки вхождения числа в диапазон}
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;             { Цикл остановится, когда число будет входить в заданный диапазон значений}
  until false;
  write('Введите значение количества столбцов в двумерном массиве (не более ',maxcol,'): ');
  repeat
    Readln(mm);                         { Ввод значения количества столбцов}
    if (mm < 1) or (mm > maxcol) then   { Условие для проверки вхождения числа в диапазон}
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;      { Цикл остановится, когда число будет входить в заданный диапазон значений}
  until false;
  for i:= 1 to nn do
    for j:= 1 to mm do
    begin
      write('Введите значение элемента [',i,',',j,']: ');
      Read(arr[i,j]);     { Ввод значений в двумерный массив.}
    end;
  Readln;
end;
 
 
procedure InfOutArr(arr: TArr2int; nn,mm: integer);
{Процедура для вывода двумерного массива в консоль}
var
  i,j: integer;
begin
  for i:= 1 to nn do
    begin
      for j:= 1 to mm do
        write(' ',arr[i,j]:5);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
end;
 
 
var
  a: TArr2int;  { Переменная для хранения массива}
  n,m: integer;  {Переменные для хранения значения количества строк и столбцов}
begin
  InfInArr(a,n,m);     {Ввод информации в массив}
  ClrScr;              {Очистка экрана}
  writeln('Исходный массив:');
  InfOutArr(a,n,m);    {Вывод элементов массива в консоль}
  Readln;
end.