Увеличить все элементы строки с минимальной суммой элементов на среднее арифметическое элементов матрицы,лежащих выше главной диагонали

const
  nmax=20;
  
type
  tArr=array[1..nmax,1..nmax] of real;
  
procedure init(var ar: tArr; n: integer);
var i,j: integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      ar[i,j]:=random(99)+1;
end;
 
procedure outPut(var ar: tArr; n: integer);
var i,j: integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(ar[i,j]:7:2);
    writeln;
  end;
  writeln;
end;
 
function avr(var ar: tArr; n: integer): real;
var i,j,k: integer;
    sum: real;
begin
  sum:=0; k:=0;
  for i:=1 to n-1 do
    for j:=i+1 to n do
    begin
      sum:=sum+ar[i,j];
      inc(k);
    end;
  avr:=sum/k;
end;
 
function mnm(var ar: tArr; n: integer): byte;
var i,j,k: integer;
    min: real;
begin
  min:=ar[1,1];
  for i:=1 to n do
    for j:=1 to n do
    if ar[i,j]<min then
    begin
      min:=ar[i,j];
      k:=i;
    end;
  mnm:=k;
end;
 
procedure change(var ar: tArr; n,k: integer; sr: real);
var j: integer;
begin
  for j:=1 to n do
    ar[k,j]:=ar[k,j]+sr;
end;
 
var
  a: tArr;
  n: integer;
begin
  randomize;
  write('Введите размеры массива n: ');
  readln(n);
  init(a,n);
  writeln('Исходный массив:');
  outPut(a,n);
  writeln('Среднее выше главной = ',avr(a,n):5:2);
  writeln('Минимальный элемент в ',mnm(a,n),' строке');
  change(a,n,mnm(a,n),avr(a,n));
  outPut(a,n);
  readln;
end.