Найти наименьший элемент двумерного массива - Turbo Pascal

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

Найти наименьший элемент двумерного массива. Размер MXN. Элементы задаются на интервале [-30, 45].

Uses crt;
Var a: array[1..50,1..50] of integer;
      i, j, n, m, min: integer;
Begin
clrscr;
Write(‘сколько строк?’); Readln(m);
Write(‘сколько столбцов?’); Readln(n);
For i:=1 to m do
   begin
       For j:=1 to n do
          begin 
               a[i,j]:=int(rnd*76)-30;  write(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);
End.

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

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

a[i, j] :=-30+random[76];

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

В данном коде происходит следующее:

Создается двумерный массив a размером 2x76.
Для каждой ячейки массива a в позиции (i, j) происходит следующее действие: значение ячейки a[i, j] присваивается результату выражения -30 + random[76].
Значение переменной random[76] представляет собой случайное число от 0 до 75, которое используется в качестве аргумента для функции random.
Значение выражения -30 + random[76] будет случайным числом от -30 до 75.
Значение каждой ячейки массива a будет уникальным случайным числом в указанном диапазоне.