Подсчитать количество локальных минимумов в матрице - Turbo Pascal

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

Т.к работаю сисадмином не шарю в программировании на pascal, а необходимо решить эту несложную задачу: Соседями элемента a_ij в матрице назовем элементы a_i-1j , a_i+1j , a_ij-1 , a_ij+1. Элемент матрицы называется локальным минимумом, если он строго меньше всех соседей. Подсчитать количество локальных минимумов в матрице 5*5. если у кого есть несколько минут времени времени чтобы написать данную программу, поделитесь, буду очень благодарен.

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
program pr;
const
n=5;
var
  a: array [1..5, 1..5] of integer;
  i, j, cout: integer;
begin
  randomize;
  cout := 0;
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := random(21);
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:3);
    writeln;
  end;
  for i := 2 to n-1 do
    for j := 2 to n-1 do
      if (a[i, j] < a[i - 1, j]) and (a[i, j] < a[i + 1, j]) and (a[i, j] < a[i, j - 1]) and (a[i, j] < a[i, j + 1]) then
      begin
      writeln('Локальный минимум: ',a[i,j]);
        cout := cout + 1;
      end;
  writeln('Количество локальных минимумов: ', cout);
end.