Дана матрица целых чисел размером 5х3. определить максимальный и мини-мальный элемент матрицы. результат вывести на экран монитора. только надо чтобы выводилась матрица для того чтобы было видно откуда берется мин и max

type mas=array[1..5,1..3] of integer; var a: mas; i,j,min,max: integer; beginrandomize; for i: =1 to 5 dofor j: =1 to 3 doa[i,j]: =random(100)+1; writeln('исходная матрица'); for i: =1 to 5 dobeginfor j: =1 to 3 dowrite(a[i,j]: 4); writeln; end; min: =a[1,1]; max: =a[1,1]; for i: =1 to 5 dofor j: =1 to 3 dobeginif a[i,j]< min then min: =a[i,j]; if a[i,j]> max then max: =a[i,j]; end; writeln('минимальный элемент матрицы: ',min); writeln('максимальный элемент матрицы: ',max); end.