Все положительные элементы двумерного массива А увеличить на 15...

program Project1;
uses
  CRT;
const
  maxrow = 20;
  maxcol = 20;
var
  a: array[1..maxrow,1..maxcol] of integer; { Переменная для хранения массива.}
  n,m: integer; { Переменные для хранения значения строк и столбцов двумерного массива. }
  i,j: integer; { Вспомогательные переменные для организации циклов.}
 
begin
  write('Введите значение количества строк в двумерном массиве (не более ',maxrow,'): ');
  Readln(n);
  write('Введите значение количества столбцов в двумерном массиве (не более ',maxcol,'): ');
  Readln(m);
  for i:= 1 to n do
    for j:= 1 to m do
    begin
      write('Введите значение элемента [',i,',',j,']: ');
      Readln(a[i,j]);     { Ввод значений в двумерный массив.}
    end;
  clrscr;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      for j:= 1 to m do
        write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
  writeln('Измененный массив: ');
  for i:= 1 to n do
    begin
      for j:= 1 to m do
        begin
          if a[i,j] > 0 then    {Условие для поиска положительных элементов}
            a[i,j]:= a[i,j] + 15; {Увеличение найденного элемента на 15}
          write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
        end;
      Writeln;
    end;
  Readln;
end.