Найти наименьший элемент в двумерном массива?

На языке Паскаль: const n=5; - объявляем константу  n, в которой будет храниться размер двумерного массива var a:array [1..n,1..n] of integer;-объявляем массив min:integer;-объявление переменной где будет храниться минимальный элемент i,j:byte;-объявляем две вспомогательные переменные для цикла begin - тело программы  for i:=1 to n do - цикл по строкам for j:=1 to n do begin - цикл по столбцам readln(a[i,j]); - вводим элемент в массив if (i=1) and (j=1) then min:=min:=a[i,j]; - здесь происходит присваивание первого элемента для сравнения с последующими  if min>a[i,j] then min:=a[i,j]; - проверяем на условие минимума, если переменная min  больше элемента массива, то присваиваем ей значение массива end; writeln('Минимальный элемент двумерного массива=',min); - вывод минимального элемента end.