Посчитать количество положительных чисел в матрице 10 на 10 в интервале [-19;30] - Pascal

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

Посчитать количество положительных чисел в матрице 10 на 10 в интервале [-19;30] Сразу спасибо за решение

Решение задачи: «Посчитать количество положительных чисел в матрице 10 на 10 в интервале [-19;30]»

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

var
  a : array [1..10,1..10] of Integer;
  row, col, count : Integer;
begin
  Randomize;
  count := 0;
  for row := 1 to 10 do
    begin
      for col := 1 to 10 do
        begin
          a[row, col] := Random(201)-100;
          Write(a[row, col]:4);
          if (a[row,col]>-20)and(a[row,col]<31) then inc(count);
        end;
      WriteLn;
    end;
  WriteLn(count);
end.

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

Объявляется двумерный массив a размером 10 на 10 для хранения целых чисел.
Задаются три переменные: row, col, count.
Переменная count инициализируется нулем и будет использоваться для подсчета количества положительных чисел.
В цикле от 1 до 10 выполняется заполнение матрицы a случайными числами в интервале [-100;-100+200].
Внутренний цикл перебирает все элементы матрицы a.
Условие (a[row,col]>-20)and(a[row,col]<31) проверяет, является ли элемент положительным числом.
Если условие истинно, то к переменной count прибавляется единица.
После завершения внутреннего цикла выводится значение элемента матрицы a с его координатами.
После завершения внешнего цикла выводится общее количество положительных чисел.