Найти минимальное значение среди сумм модулей элементов диагоналей, параллельных главной

var
  a: array[1..20,1..20] of integer;
  n,i,j,k,sum,min: integer;
begin
  randomize;
  write('Введите размер матрицы n: ');
  readln(n);
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(19)-9;
      write(a[i,j]:4);
    end;
    writeln;
  end;
 
  min:=abs(a[n,1]);
  writeln('Сумма модулей элементов диагоналей, параллельных главной:');
  for k:=1 to n*2-1 do
  begin
    sum:=0;
 
    if k<n then
      for i:=n-k+1 to n do
        sum:=sum+abs(a[i,i-n+k])
    else
 
    if k>=n then
      for i:=1 to n*2-k do
        sum:=sum+abs(a[i,i-n+k]);
 
    writeln(k,'. ',sum);
      if sum<min then min:=sum;
  end;
  writeln('Модуль минимальной суммы элементов = ',min);
  readln;
end.

if k>n then

const
  nmax=20;
  
type
  tAr=array[1..nmax,1..nmax] of integer;
  
procedure init(var a: tAr; n: integer);
var i,j: integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(19)-9;
end;
 
procedure output(a: tAr; n: integer);
var i,j: integer;
begin
  writeln('Ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
end;
 
procedure summa(a: tAr; n: integer);
var i,j,min,sum,k: integer;
begin
  min:=abs(a[n,1]);
  writeln('Ñóììà ìîäóëåé ýëåìåíòîâ äèàãîíàëåé, ïàðàëëåëüíûõ ãëàâíîé:');
  for k:=1 to n*2-1 do
  begin
    sum:=0;
 
    if k<n then
      for i:=n-k+1 to n do
        sum:=sum+abs(a[i,i-n+k])
    else
 
    if k>=n then
      for i:=1 to n*2-k do
        sum:=sum+abs(a[i,i-n+k]);
 
    writeln(k,'. ',sum);
      if sum<min then min:=sum;
  end;
  writeln('Ìîäóëü ìèíèìàëüíîé ñóììû ýëåìåíòîâ = ',min);
end;
 
var
  a: tAr;
  n: integer;
begin
  write('Ââåäèòå ðàçìåð ìàññèâà n: ');
  readln(n);
  init(a,n);
  output(a,n);
  summa(a,n);
end.