Найти минимальное значение среди элементов массива - Free Pascal

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

                    Листинг программы
                
 
                        
                          
                    
program abz;
var A:array[1..100] of array [1..100] of integer;
m,j,N:integer;
b:integer;
i:integer;
begin
read (M,N);
for i:=1 to M do
begin
b:=0;
for j:=1 to N do B:=b+a[a,j];  ----- Пишет "не соответствие типа" [a,j]
write(b);
end;
readln;
end.

Условие задачи. Произвольный массив M на N заполнен произвольными числами. Необходимо найти минимальное значение среди элементов массива.

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

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

program abz;
var
  A:array[1..100] of array [1..100] of integer;
  m,j,N:integer;
  min:integer;
  i:integer;
begin
  write('Введите размерность массива: ');  readln (M,N);
  for i:=1 to M do
    begin
      for j:=1 to N do
        begin
          a[i,j]:=random(100)-50;
          write(a[i,j]:3);
          {readln(a[i,j]; //ввод с клавиатуры}
        end;
      writeln;
    end;
  min:=a[1,1];
  for i:=1 to M do
    for j:=1 to N do
       if a[i,j]<min then
         min:=a[i,j];
  writeln('Минимум: ',min);
  readln;
end.

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

Объявление переменных:
- A: массив из массивов целых чисел (двумерный массив) размером 100x100
- m, j, N: целочисленные переменные для хранения размера массива
- min: переменная для хранения минимального значения
- i: цикловая переменная
Ввод размера массива с клавиатуры
Заполнение двумерного массива случайными значениями от 50 до 150
Вывод на экран содержимого массива
Нахождение минимального значения в массиве
Вывод на экран минимального значения
Ввод с клавиатуры для завершения работы программы