Найти максимальный элемент в заштрихованной части матрицы - Turbo Pascal

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

Помогите решить задачку. нужно составить схему алгоритма гл. программы и подпрограммы, главную программу и подпрограмму. Самостоятельно выбрать значения исходных данных. При решении задачи использовать подпрограмму-процедуру. Обмен данными между главной программой и подпрограммой при помощи глобальных переменных. Есть матрица A(5х5). Нужно найти max элемент в заштрихованной части За ранее спасибо.

Решение задачи: «Найти максимальный элемент в заштрихованной части матрицы»

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

program sasha0808;
{$APPTYPE CONSOLE}
uses SysUtils;
type arr = array [1..5,1..5]of Integer;
var mas:arr;
    max_i,max_j,i,j,max:Integer;
 
procedure array_in;
begin
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        begin
          write('Array [',i,'][',j,'] = ');Readln(mas[i,j]);
        end;
    end;
end;
procedure array_out;
begin
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        begin
          write(mas[i,j],' ');
        end;
      Writeln;
    end;
end;
procedure array_max;
begin
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        begin
          if ((1<=i) and(i<=3) and ((1<=j) and (j<=2))) then
            begin
 
            end
          else
            begin
              if (max<mas[i,j]) then
                begin
                  max:=mas[i,j];
                  max_i:=i;
                  max_j:=j;
                end;
            end;
        end;
    end;
end;
begin
  array_in;
  Writeln(' Array ');
  array_out;
  max:=mas[1,4];max_i:=1;max_j:=4;
  array_max;
  Writeln('Max = ',max,'[',max_i,',',max_j,']');
  readln;
end.

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

Этот код написан на Turbo Pascal и выполняет следующие действия:

Создает переменные max, max_i и max_j для хранения максимального элемента и его координат.
Создает массив mas размером 5x5.
Выводит содержимое массива mas с помощью процедуры array_in.
Выводит максимальное значение в массиве с помощью процедуры array_max.
Выводит координаты максимального элемента с помощью процедур max_i и max_j.
Завершает работу программы. Примечание: В коде используется условное выражение для определения максимального элемента в заштрихованной части матрицы. Это условие проверяет, что элемент находится в пределах от 1 до 3 и от 1 до 2 соответственно.