Определить, есть ли в заданной матрице элемент, равный 0, и является ли он наименьшим - Pascal ABC

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

ребят помогите решить задачу, заранее благодарен Двумерный массив задается случайными целыми числами из диапазона от -75 до 132. Размерность массива устанавливается 10Х10.Определить, есть ли в заданном массиве элемент, равный 0. Является ли этот элемент наименьшим?

Решение задачи: «Определить, есть ли в заданной матрице элемент, равный 0, и является ли он наименьшим»

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

var
  a:array[1..10,1..10]of integer;
  b,c,d:integer;
  e:boolean;
begin
  for b:=1 to 10 do
    begin
      for c:=1 to 10 do
        begin
          a[b,c]:=random(132+75)-75;
          write(a[b,c]:4);
        end;
      writeln;
    end;
  d:=a[1,1];
  e:=false;
  for b:=1 to 10 do
    for c:=1 to 10 do
      begin
        if d>a[b,c] then d:=a[b,c];
        if a[b,c]=0 then e:=true;
      end;
  if e then writeln('zero in array')
    writeln('zero not found');
  if d=0 then writeln('zero is minimum')
    else writeln('minimum:=',d);
end.

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

Объявлены переменные: — a: массив 10x10 целых чисел; — b, c, d: целые числа; — e: булево значение.
Заполнение массива a случайными числами от -75 до 132.
Поиск в массиве a элемента равного 0 и присвоение его значения переменной e.
Поиск в массиве a наименьшего элемента и присвоение его значения переменной d.
Вывод на экран сообщения zero in array если в массиве найден элемент равный 0, иначе вывод сообщения zero not found.
Вывод на экран сообщения zero is minimum если наименьший элемент массива равен 0, иначе вывод сообщения minimum:=d и значения d.