Заменить элементы матрицы, кратные 5, на 0

program Project1;
{$codepage utf8}
const
  maxrow = 20;
  maxcol = 20;
var
  a: array[1..maxrow,1..maxcol] of integer; { Переменная для хранения массива.}
  n,m: integer; { Переменные для хранения значения строк и столбцов двумерного массива. }
  i,j: integer; { Вспомогательные переменные для организации циклов.}
  c: integer; { Переменная для подсчета количества замен}
begin
  Randomize;
  write('Введите значение количества строк в двумерном массиве (не более ',maxrow,'): ');
  Readln(n);
  write('Введите значение количества столбцов в двумерном массиве (не более ',maxcol,'): ');
  Readln(m);
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      for j:= 1 to m do
        begin
          a[i,j]:= random(11) - 5; {Заполнение массива случайными числами}
          write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
        end;
      Writeln;
    end;
  c:= 0;              { Установка счетной переменной в начальное состояние}
  for i:= 1 to n do
    for j:= 1 to m do
      if a[i,j] mod 5 = 0 then { Условие для поиска элементов кратных 5}
        begin
          a[i,j]:= 0;            { Замена значения найденного элемента на нуль}
          inc(c);                { Подсчет количества замен}
        end;
  writeln('Измененный массив: ');
  for i:= 1 to n do
    begin
      for j:= 1 to m do
        write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
  writeln('Количество замененных элементов: ', c);
  Readln;
end.

program Project1;
{$codepage utf8}
uses
  CRT;
const
  maxrow = 20;
  maxcol = 20;
var
  a: array[1..maxrow,1..maxcol] of integer; { Переменная для хранения массива.}
  n,m: integer; { Переменные для хранения значения строк и столбцов двумерного массива. }
  i,j: integer; { Вспомогательные переменные для организации циклов.}
  c: integer; { Переменная для подсчета количества замен}
begin
  Randomize;
  write('Введите значение количества строк в двумерном массиве (не более ',maxrow,'): ');
  Readln(n);
  write('Введите значение количества столбцов в двумерном массиве (не более ',maxcol,'): ');
  Readln(m);
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      for j:= 1 to m do
        begin
          a[i,j]:= random(11) - 5; {Заполнение массива случайными числами}
          write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
        end;
      Writeln;
    end;
  writeln('Измененный массив: ');
  c:= 0;              { Установка счетной переменной в начальное состояние}
  for i:= 1 to n do
    begin
      for j:= 1 to m do
        begin
          textcolor(7);            {Установка обычного (светло-серый) цвета вывода символов}
          if a[i,j] mod 5 = 0 then { Условие для поиска элементов кратных 5}
            begin
              a[i,j]:= 0;            { Замена значения найденного элемента на нуль}
              inc(c);                { Подсчет количества замен}
              textcolor(10);           { Установка другого цвета вывода символов в консоль}
            end;
          write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
        end;
      Writeln;
    end;
  writeln('Количество замененных элементов: ', c);
  Readln;
end.