Дан массив размера n x n. найдите сумму, минимальный и максимальный из его элементов, расположенных над главной и над побочной диагоналями (элементы обеих диагоналей включить в рассмотрение)

Решение во вложении
Такая задача уже была раньше

Пусть уже ответили, не пропадать же работе даром))
program test;
var
  a:array[1..10,1..10] of integer;
  min,max,i,i1,sum,sum2:integer;
begin
  for i:=1 to 10 do begin
      for i1:=1 to 10 do begin
          a[i,i1]:=random(1,100);
          write(a[i,i1]:4);
      end;
      writeln;
  end;
  writeln('ГЛАВНАЯ ДИАГОНАЛЬ');
  min:=a[1,1];
  for i:=1 to 10 do begin
    for i1:=i to 10 do begin
      sum:=sum+a[i,i1];
      if a[i,i1]>max then max:=a[i,i1];
      if a[i,i1]<min then min:=a[i,i1];
    end;
  end;
  writeln('сумма ',sum);
  writeln('Максимальное ',max);
  writeln('Минимальное ',min);
  sum:=0;
  writeln('ПОБОЧНАЯ ДИАГОНАЛЬ');
  min:=a[1,1];
  for i:=10 downto 1 do begin
    for i1:=1 to i do begin
      sum:=sum+a[i,i1];
      if a[i,i1]>max then max:=a[i,i1];
      if a[i,i1]<min then min:=a[i,i1];
    end;
  end;
  writeln('сумма ',sum);
  writeln('Максимальное ',max);
  writeln('Минимальное ',min);
end.