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

На языке Паскаль: 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.