const
  mm = 30;

var
  a: array[1..mm, 1..mm] of integer;
  i, j, m, s: integer;

begin
  Write('Введите число строк матрицы: ');
  Readln(m);
  Randomize;
  Writeln(#13#10, 'Исходная матрица');
  for i := 1 to m do
  begin
    for j := 1 to m do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
  end;
  { *** 1 *** }
  Writeln('*** Элементы главной диагонали ***');
  for i := 1 to m do Write(a[i, i]:4);
  Writeln;
  Writeln('*** Элементы побочной диагонали ***');
  for i := m downto 1 do Write(a[i, m - i + 1]:4);
  Writeln;
  { *** 2 *** }
  s := 0;
  for i := 1 to m - 1 do
    for j := i + 1 to m do
      s := s + a[i, j];
  Writeln('Сумма элементов, лежащих выше главной диагонали: ', s);
end.

Тестовое решение:

Введите число строк матрицы: 10

Исходная матрица
  -8  15  22  40   6  46 -37  35 -45  -5
  41  22  45  17 -19 -14  50 -11  43 -10
  27  20 -45 -35  27 -27  25   3  34   6
  37   5  38 -36  32 -18  11 -41  44  46
  35  24 -38 -18   1  28 -25 -25  -5  36
  20  33  37 -32 -35  23   9   7 -38 -18
 -29  10 -50   0   9 -15  34  30  35  50
  26  40  -5  48   5 -47   7  24  14  50
  49  -1 -43  49  36 -47  18  20  49 -41
  24 -47  47  12  25 -26  24  12  24 -35
*** Элементы главной диагонали ***
  -8  22 -45 -36   1  23  34  24  49 -35
*** Элементы побочной диагонали ***
  24  -1  -5   0 -35  28  11   3  43  -5
Сумма элементов, лежащих выше главной диагонали: 392