Двумерные массивы

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