Найти номер строки матрицы, содержащий наименьшее среднее значение - Pascal ABC

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

В целочисленной матрице размерностью 3x3 найти номер строки, содержащий наименьшее среднее значение. Я сделал на фотке наименьшее значение, можете пожалуйста дополнить.

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

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

const n=3;
var a:array [1..n, 1..n] of integer ;
    i,j,s,k:integer;
    min:real;
begin
writeln('Введите элементы матрицы, целые числа');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln (a[i,j]);
 end;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
min:=maxint;
for i:=1 to n do
 begin
  s:=0;
  for j:=1 to n do
  s:=s+a[i,j];
  if s/n<min then
   begin
    min:=s/n;
    k:=i;
   end;
 end;
write('Минимальное среднее в строке ',k,' оно равно ',min:0:2);
end.

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

Этот код написан на языке Pascal ABC и выполняет следующие действия:

Объявляет переменные: n (количество строк матрицы), a (матрица), i, j, s (переменные для итерации по матрице), k (номер строки с минимальным средним значением).
Запрашивает у пользователя ввести элементы матрицы, используя цикл for и переменную i.
В цикле for j идет запись значения элемента матрицы a[i,j] в переменную readln (это необходимо, чтобы пользователь мог ввести значение, не вводя кавычки).
Выводит матрицу, используя цикл for и переменную i.
В цикле for j идет расчет суммы элементов строки a[i,j] с помощью переменной s.
Если сумма элементов строки меньше текущего минимального значения, то обновляется значение min и k.
Выводит на экран номер строки и минимальное среднее значение.