Найти среднее арифметическое элементов строки матрицы, в которой расположен минимальный элемент - Turbo Pascal

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

Выручите : Задан массив В(М, М). Найти среднее арифметическое элементов строки, в которой расположен минимальный элемент. Желательно с функциями или процедцрами

Решение задачи: «Найти среднее арифметическое элементов строки матрицы, в которой расположен минимальный элемент»

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

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,k,min,idx1,idx2,s:integer;
sum:real;
BEGIN
clrscr;
for i:=1 to n do
 for j:=1 to n do
    a[i,j]:=random(10+3);
 
    for i:=1 to n do
    begin
     for j:=1 to n do
      write(a[i,j]:4);
      writeln;
      end;
      writeln;
      min:=a[1,1];
      idx1:=1;idx2:=1;
      for i:=1 to n do
       for j:=1 to n do
        if a[i,j]<min then
        begin
         min:=a[i,j];
         idx1:=i;
         idx2:=j;
        end;
 
       writeln('MIN = ',min,' координаты ',idx1,' ',idx2);
       s:=0;
 
       for j:=1 to n do
         s:=s+a[idx1,j];
 
         sum:=s/n;
         writeln('Среднее ариф = ',sum:3:2);
readkey;
END.

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

Создается окружение для работы с графическим интерфейсом пользователя (GUI).
Задаются константы и переменные: n - количество строк матрицы, a - матрица целых чисел, i, j, k - счетчики, min - текущий минимальный элемент, idx1, idx2 - индексы текущего минимального элемента, s - сумма элементов матрицы, sum - сумма всех элементов матрицы после нахождения среднего арифметического.
Инициализируются случайным образом все элементы матрицы.
Выводится минимальный элемент и его индексы.
Находится средний арифметический элементов матрицы, для этого суммируются все элементы и делится полученная сумма на количество строк матрицы.
Выводится средний арифметический.
Программа завершается, ожидая ввода пользователя.