Просуммировать элементы квадратной матрицы по каждой из линий, параллельных главной диагонали

type mtr=array[,] of integer;
function summa(a:mtr;n,k:integer):integer;
begin
result:=0;
if k<n then
 begin
  for var i:=n-k-1 to n-1 do
  inc(result,a[i,i-n+k+1])
 end
else 
if k>=n then
 begin
  for var i:=0 to 2*n-k-2 do
  inc(result,a[i,i+k-n+1])
 end; 
end;
var a:mtr;
    n:integer;
begin
randomize;
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
setlength(a,n,n);
writeln('Матрица');
for var i:=0 to n-1 do
 begin
  for var j:=0 to n-1 do
   begin
    a[i,j]:=10+random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for var k:=0 to 2*n-2 do
writeln('Сумма ',k+1,'=',summa(a,n,k));
end.

type mtr=array[,] of integer;
procedure summa(a:mtr;n,k:integer;var sum:integer);
begin
sum:=0;
if k<n then
 begin
  for var i:=n-k-1 to n-1 do
  inc(sum,a[i,i-n+k+1])
 end
else 
if k>=n then
 begin
  for var i:=0 to 2*n-k-2 do
  inc(sum,a[i,i+k-n+1])
 end; 
writeln('Сумма ',k+1,'=',sum); 
end;
var a:mtr;
    n,s:integer;
begin
randomize;
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
setlength(a,n,n);
writeln('Матрица');
for var i:=0 to n-1 do
 begin
  for var j:=0 to n-1 do
   begin
    a[i,j]:=10+random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for var k:=0 to 2*n-2 do
summa(a,n,k,s);
end.