Каждый отрицательный элемент в массиве заменить результатом его целочисленного деления на 3 - Pascal

Формулировка задачи:

Ввести двумерный массив A(N x M). Каждый отрицательный элемент в массиве заменить результатом его целочисленного деления на 3. Массив вывести до и после преобразования.

Решение задачи: «Каждый отрицательный элемент в массиве заменить результатом его целочисленного деления на 3»

Листинг программы

const
  n = 4;
  m = 3;
 var
  a : array [1..n, 1..m] of integer;
  i, j : integer;
 begin
  writeln('введите массив:');
  for i:= 1 to n do
    for j := 1 to m do
    begin
      write('A[', i, ',', j, '] = ');
      readln(a[i,j])
    end;
  {вывод}
  for i := 1 to n do
  begin
    for j := 1 to m do write(a[i,j]:4);
    writeln
  end;
  {замена}
  for i := 1 to n do
    for j := 1 to m do
      if a[i,j] < 0 then a[i,j] := a[i,j] div 3;
  {вывод}
  writeln('после замены:');6
  for i := 1 to n do
  begin
    for j := 1 to m do write(a[i,j]:4);
    writeln
  end; readln    
 end.

Объяснение кода листинга программы

Объявлены константы: n = 4, m = 3.
Объявлена двумерная матрица a размером 4x3 типа integer.
Объявлены переменные i, j типа integer.
Выводится сообщение «введите массив:» и считываются значения элементов матрицы a с помощью цикла for и функции readln().
Выводится сообщение «после ввода:» и значения элементов матрицы a выводятся с помощью цикла for и функции write().
Запускается цикл замены отрицательных элементов матрицы a на результат их целочисленного деления на 3 с помощью условного оператора if и присваивания a[i,j] := a[i,j] div 3.
Выводится сообщение «после замены:» и значения элементов матрицы a выводятся с помощью цикла for и функции write().
Запускается цикл ожидания нажатия клавиши с помощью функции readln().