Работа с матрицей

[Absent]

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

Программу написал,но работает неправльно. Помогите исправить программу пожалуйста

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
n=3;
Type matr=array[1..n,1..n] of real;
mass=array[1..n] of real;
Var
A:matr;
sum:mass;
b,SrAr,min:real;
i,j,k:integer;


Procedure CTPOKA(Var k:integer);
var
i:integer;
j:integer;
begin
for i:=1 to n do
for J:=1 to n do
  begin
  if J=1 then sum[i]:=0;
  sum[i]:=A[i,j]+sum[i];
  end;
min:=sum[1];
for i:=1 to n do
if min<sum[i] then K:=i;
end;



Procedure  CREDN(Var SrAr:real );
Var
m,i,j:integer;
begin
b:=0;
m:=0;
for i:=1 to n do
for j:=1 to n do
if J>i then
       begin
       b:=b+A[i,j];
       m:=m+1;
       end;
SrAr:=b/m;
end;


procedure uvelichenie(Var A:matr);
var
J:integer;
begin
for j:=1 to n do
A[k,j]:=A[k,j]+srar;
end;


BEGIN
for i:=1 to n do
for j:=1 to n do
  begin
  write('A[',i,',',j,']=');
  readln(A[i,j]);
  end;
writeln('ishodnaya matrica');
for i:=1 to n do
for j:=1 to n do
  begin
  write(A[i,j]:2:1,'  ');
  if J=n then
         begin
         writeln;
         writeln;
         end;
  end;
CTPOKA(k);
CREDN(srar);
uvelichenie(A);
writeln('poluchenaya matrica');
for i:=1 to n do
for j:=1 to n do
  begin
  write(A[i,j]:2:1,'   ');
  if J=n then
         begin
         writeln;
         writeln;
         end;
  end;
writeln(srar:2:3);
readln;
end.

[eoln]

Три недочёта (помечены коментом)

program Project2;   
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
n=3;
Type matr=array[1..n,1..n] of real;   
mass=array[1..n] of real;
Var   
A:matr;
sum:mass;
b,SrAr,min:real;   
i,j,k:integer;
  
Procedure CTPOKA(Var k:integer);   
var   
i:integer;
j:integer;   
begin   
for i:=1 to n do
for J:=1 to n do
  begin   
  if J=1 then sum[i]:=A[i,j]; //раз - первый элемент не должн зануляться
  sum[i]:=A[i,j]+sum[i];
  end;
min:=sum[1];
K:=1; //два - про К забываем
for i:=1 to n do   
if min>sum[i] then K:=i; //три - знак нетуда
end;

Procedure  CREDN(Var SrAr:real );   
Var
m,i,j:integer;   
begin
b:=0;
m:=0;
for i:=1 to n do
for j:=1 to n do
if J>i then
       begin
       b:=b+A[i,j];
       m:=m+1;
       end;
SrAr:=b/m;
end;
  
procedure uvelichenie(Var A:matr);
var   
J:integer;
begin   
for j:=1 to n do
A[k,j]:=A[k,j]+srar;   
end;
  
BEGIN
for i:=1 to n do   
for j:=1 to n do
  begin   
  write('A[',i,',',j,']=');   
  readln(A[i,j]);
  end;   
writeln('ishodnaya matrica');   
for i:=1 to n do
for j:=1 to n do   
  begin   
  write(A[i,j]:2:1,'  ');
  if J=n then   
         begin   
         writeln;
         writeln;   
         end;
  end;
CTPOKA(k);
CREDN(srar);
uvelichenie(A);
writeln('poluchenaya matrica');
for i:=1 to n do
for j:=1 to n do
  begin
  write(A[i,j]:2:1,'   ');
  if J=n then
         begin
         writeln;
         writeln;
         end;
  end;
writeln(srar:2:3);
readln;
end.